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ABSTRACT 


Nucleate  pool  boiling  is  an  essential  part  of  the  vast  cooling  systems  today's 
combatant  ship  combat  systems  are  dependent  upon.  Understanding  the  mechanisms 
that  influence  heat  transfer  in  tube  bundles  in  a  liquid  pool  is  the  stepping  stone  for 
improving  these  cooling  systems.  This  thesis  attempts  to  bridge  the  gap  between  single 
tube  performance  and  bundle  performance  by  studying  the  effect  of  a  lower  heated  tube 
on  the  heat  transfer  from  an  upper  tube  in  a  simple'  two  tube  bundle.  This  study  con¬ 
cludes  that  a  nucleating  lower  tube  (regardless  of  the  spacings  tested  between  tubes)  has 
a  significant  positive  (i.e.  improvement  of  heat  transfer)  influence  an  upon  upper  tube. 
This  is  especially  evident  for  a  smooth  tube  where  any  hysteresis  effects  are  completely 
eliminated  when  the  lower  tube  nucleates  at  a  heat  flux  of  10  kW/nt*  or  greater.  Fur¬ 
thermore,  the  only  influence  for  the  pitch-to-diameter  ratios  tested  was  at  the  highest 
heat  fluxes  for  the  smooth  tubes  where  a  p/d  of  1.8  was  found  to  give  the  maximum  heat 
transfer.  No  such  maximum  was  obtained  for  the  enhanced  tubes. 
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NOMENCLATURE 


Note  that  properties  and  measured  parameters  of  the  lower  (auxiliary)  tube  are  dif¬ 
ferentiated  from  the  upper  tube  with  A  added  to  that  property  or  parameter  (i.e.  ACp 
is  the  specific  heat  of  the  lower  (auxiliary)  tube).  Though  this  may  cause  confusion  with 
area  dimensions,  this  nomenclature  is  preserved  because  it  is  used  within  programs 
SETUP72  (  appendix  C)  and  DRP72  (appendix  D).  Note  also  that  like  tubes  were  used 
in  upper  and  lower  positions  such  that  spatial  dimensions  are  the  same  and  are  not  dif¬ 
ferentiated  between  tubes. 

A  area 

Ab  tube  outside  surface  area  of  active  boiling  section 

Ac  cross  sectional  area  of  the  tube 

Cp  specific  heat 

ACp  specific  heat  oflower  (auxiliary)  tube 

D  diameter 

Di  tube  inside  diameter 

Do  tube  outside  diameter 

Dl  diameter  of  the  position  of  the  thermocouple 

D2  outer  diameter  of  the  boiling  tube 

g  gravitational  acceleration 

h  heat  transfer  coefficient 

Ah  heat  transfer  coefficient  oflower  tube 

I  current 

AI  current  for  lower  tube 

Is  output  voltage  of  AC  current  sensor 

AIs  output  voltage  of  AC  current  sensor  for  lower  tube 

k  thermal  conductivity  of  liquid 

Ak  thermal  conductivity  of  liquid  associated  with  lower  tube 

kc  thermal  conductivity  of  copper 

L  active  boiling  tube  length 

Lu  non-boiling  tube  length 
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tube  outside  wail  perimeter 

Prandtl  number 

Prandti  number  associated  with  lower  tube 

heat  transfer  rate  from  boiling  surface 

heat  transfer  rate  from  boiling  surface  of  lower  tube 

heat  transfer  rate  through  one  non-boiling  end 

heat  transfer  rate  through  one  non-boiling  end  of  lower  tube 

heat  transfer  rate  from  cartridge  heater 

heat  transfer  rate  from  lower  tube  cartridge  heater 

heat  flux 

heat  flux  from  lower  tube 
Rayleigh  number 
temperature 

average  wall  temperature  at  the  thermocouple  location 

average  wall  temperature  at  the  thermocouple  location  for 
the  lower  tube 

critical  temperature 

film  temperature 

film  temperature  of  fluid  associated  with  lower  tube 
temperature  of  the  thermocouple  location 
saturation  temperature 

outer  wall  temperature  of  the  boiling  test  tube 

outer  wall  temperature  of  the  lower  tube 

voltage  across  the  cartridge  heater 

voltage  across  the  cartridge  heater  for  the  lower  tube 

voltage  output  by  AC-DC  true  RMS  converter 
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I.  INTRODUCTION 


As  the  United  States  continues  to  struggle  with  the  dilemma  of  increasing  require¬ 
ments  for  CFC's,  while  at  the  same  time  joining  the  world  in  concern  over  ozone  de¬ 
pletion,  the  exigency  of  finding  replacements  for  the  Navy's  high  ozone  depletion 
potential  fluids  is  of  the  highest  order.  The  urgency  of  this  search  was  made  more 
pressing  by  the  reduction  of  the  time  allowed  (ordered  by  President  Bush)  to  meet 
Montreal  Protocol  deadlines  to  purge  use  of  CFC  refrigerants.  A  particularly  damaging 
fluid  is  R-114,  used  primarily  in  centrifugal  chilled-water  air-conditioning  plants  onboard 
ships.  In  order  to  best  determine  a  short  term  or  'drop  in'  replacement,  data  of  R-114 
nucleate  pool  boiling  characteristics  is  required  for  comparison.  The  literature  provides 
many  studies  of  single  tubes  in  nucleate  pool  boiling;  however,  studies  of  multiple  tubes 
are  more  scarce.  Most  studies  of  multiple  tubes  with  varied  tube  spacings  were  con¬ 
ducted  in  a  manner  to  simulate  a  bundle,  i.e.  all  tubes  in  the  pool  were  studied  with  the 
same  applied  heat  flux.  There  is  little  work  in  the  literature  on  the  effect  of  a  lower 
heated  tube  on  the  heat  transfer  from  an  upper  tube  (i.e.  a  simple  bundle)  and  none  with 
R-114.  This  type  of  data  would  begin  to  bridge  the  gap  between  single  tube  nucleate 
pool  boiling  and  bundle  effects,  and  would  complement  the  search  for  a  suitable  re¬ 
placement  for  R-114. 

To  increase  the  available  data  for  comparison  with  possible  replacement  refrigerants, 
and  to  further  investigate  the  effect  of  tube  spacing,  the  following  objectives  of  this  thesis 
were  established: 

1.  Modify  the  existing  single  tube  pool  boiling  apparatus  to  accommodate  a  simple 
two  tube  bundle,  including  program  modifications  to  facilitate  instrumenting  the 
second  tube. 

2.  Operate  the  apparatus  to  prove  repeatability  with  single  tube  data. 

3.  Obtain  convection  and  boiling  data  over  several  tube  pitches  and  heat  flux  settings 
for  both  a  smooth  tube  and  an  enhanced  tube. 

Of  particular  note  is  that  this  study  was  designed  as  a  follow  up  to  the  single  tube 
work  of  Sugiyama  [Ref.  lj.  The  format  of  this  study,  including  the  correlations  and 
programs  used,  are  adaptations  from  Sugiyama's  work  in  order  to  make  the  results  di¬ 
rectly  comparable. 
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II.  MECHANISMS 


A.  SINGLE  TUBE  BEHAVIOR 

Experimental  heat  transfer  behavior  has  been  fairly  well  predicted  from  single 
smooth  cylindrical  tubes  in  an  infinite  pool  for  the  natural  convection  region  by 
Churchill  and  Chu  [Ref.  2]  and  Churhchill  and  Usagi  [Ref.  3]  and,  to  a  lessor  degree,  'or 
the  boiling  region  by  Rohsenow  [Ref.  4]  and  Stephan  and  Abdelsalam  [Ref.  5].  Single 
enhanced  tubes  have  also  been  widely  studied  with  nucleate  pool  boiling  enhancements 
ranging  up  to  15  times  the  performance  of  smooth  tubes.  The  largest  enhancements 
have  been  obtained  for  re-entrant  cavity  surfaces  as  reported  by  Yilmaz  and  Westwater 
[Ref.  6],  Marto  and  Lepere  [Ref.  7],  and  Wanniarachchi  et  a/.[Refs.  8,  9].  In  these 
studies,  enhancements  were  largely  attributable  to  increased  surface  area  in  the  con¬ 
vection  regime,  and  to  stable  vapor  sites  (i.e.  vapor  trapped  in  re-entrant  cavities),  which 
provided  a  high  density  of  active  nucleation  sites  at  relatively  low  values  of  wall  super¬ 
heat  in  the  boiling  regime.  However,  to  date,  no  comprehensive  model  or  correlation 
has  been  presented  which  can  predict  such  enhancements  (Thome  addresses  this  in  dis¬ 
cussion  of  nucleate  pool  boiling  correlations  [Ref.  10]). 

B.  MULTIPLE  TUBE  BEHAVIOR 

The  behavior  of  a  particular  tube  in  a  multiple  tube  environment  will  be  greatly  in¬ 
fluenced  by  its  neighboring  tubes.  In  both  the  natural  convection  and  nucleate  boiling 
regimes,  fluid  heated  by  a  lower  tube  will  rise  due  to  buoyant  forces,  and  an  upper  tube 
will  tend  to  be  affected,  specifically  by  the  heated  liquid  plume  in  the  convection  regime 
and  by  the  bubble  plume  in  the  boiling  regime.  Also  in  a  bundle  the  lower  tubes  may 
impart  a  'drag'  on  the  fluid  as  it  traverses  the  bundle  affecting  the  fluid  reacliing  an  up¬ 
per  tube.  The  lower  tube,  because  it  is  not  impacted  by  a  similar  plume,  can  be  assumed 
to  behave  as  a  single  tube  in  a  pool.  However,  if  a  bundle  is  in  a  confined  pool,  it  may 
be  the  case  that  strong  recirculation  patterns  cause  an  upper  tube,  in  turn,  to  affect  the 
heat  transfer  behavior  from  a  lower  tube. 

The  effect  of  a  lower  tube  on  an  upper  tube  has  been  studied  by  Sparrow  and 
Niethammer  [Ref.  11]  and  Marsters  [Ref.  I2J  in  the  convection  region  (using  air),  and 
by  Fujita  et  al.  [Ref.  13]  and  by  Hahne,  Qiu-Rong  and  Windisch  [Ref.  14]  in  the 
nucleate  boiling  region  (using  refrigerants).  These  effects  arc  primarily  the  result  of  two 
contradictory  influences,  inct  cased  fluid  velocity  in  the  convection  or  boiling  bubble 
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plume  and  increased  fluid  temperature.  In  the  natural  convection  region,  fluid  heated 
by  the  lower  tube  will  have  a  velocity  due  to  buoyant  forces  when  it  arrives  at  the  upper 
tube.  In  effect  the  upper  tube  is  no  longer  in  a  true  natural  convection  regime  but  is 
beginning  to  experience  some  forced  convection  (i.e.  mixed  convection),  thus  increasing 
its  heat  transfer  coefficient.  At  the  same  time  the  heat  from  the  lower  tube  that  causes 
this  buoyant  plume  to  rise  has  inc  eased  the  temperature  of  that  fluid  within  the  plume, 
thereby  decreasing  the  tempeiature  difference  between  the  upper  tube  and  the  fluid  and 
decreasing  the  heat  transfer  capability.  Two  of  the  parameters  affecting  the  strength  of 
these  influences  are  tube  separation  and  the  heat  flux  setting  of  the  lower  tube.  The 
temperature  of  the  fluid  within  the  buoyant  plume  arriving  at  the  top  tube  will  be  slightly 
lower  than  its  temperature  when  it  left  the  lower  tube  due  to  convection  to  the  sur¬ 
rounding  fluid.  This  drop  in  temperature  will  tend  to  increase  with  increasing  tube  sep¬ 
aration,  thereby  increasing  the  AT  between  the  upper  tube  and  plume.  This  implies  that 
the  upper  tube's  heat  transfer  capability  at  large  pitch  may  be  expected  to  improve  over 
that  at  small  pitch.  In  addition,  with  Sugiyama's  [Ref.  1]  single  tube  work,  convection 
plumes  were  turbulent  (Grashof  numbers  were  greater  than  109),  implying  that  plume 
velocity  will  not  change  with  tube  separation.  However  in  reality  at  high  enough 
Grashof  numbers,  the  formation  of  eddies  and  other  currents  in  the  pool  would  tend  to 
cause  a  decrease  in  the  plume  fluid  velocity  at  the  upper  tube  and  thereby  a  decrease  in 
the  heat  transfer  coefficient  over  that  of  a  smaller  pitch.  The  —  two  effects,  increasing 
AT  with  increasing  pitch  and  decreasing  heat  transfer  coefficient  at  large  pitch  suggest 
that  an  optimum  pitch  is  possible.  These  influences  are  confirmed  by  Sparrow  and 
Niethammer's  work  with  air  [Ref.  1 1]  and  by  Marsters  [Ref.  12]  with  air,  for  which  they 
found  a  dependence  on  the  x-based  Grashof  number  (based  on  the  position  of  the  tubes) 
for  the  heat  transfer  from  the  upper  tube. 

In  the  nucleate  boiling  regime,  the  above  two  effects  are  also  important.  The  fluid 
entrained  in  the  bubble  plume  from  the  lower  tube  (and  the  bubbles  themselves)  impinge 
upon  the  upper  tube  at  a  much  higher  velocity  than  with  a  convection  plume  (due  to 
greater  buoyant  forces  associated  with  the  bubbles).  This  greater  velocity  of  the  plume 
and  the  bubbles  would  have  the  same  influence  as  in  convection  above  and  may  be  suf¬ 
ficient  to  strip  the  thermal  boundary  layer  from  the  upper  tube,  thereby  lowering  heat 
transfer  resistance  and  increasing  the  heat  transfer  coefficient.  Enhancements  due  to  the 
impingement  of  plume  and  bubbles  is  most  significant  at  lower  heat  fluxes  when  active 
nucleation  site  density  on  the  upper  tube  is  low.  This  provides  more  contact'  area  be¬ 
tween  the  upper  tube  and  the  rising  fluid/ bubble  mixture.  As  flux  is  increased  on  the 
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upper  tube,  the  active  nucleation  site  density  also  increases.  At  high  heat  fluxes,  boiling 
is  so  vigorous  that  the  rising  fluid  is  prevented  from  gaining  any  appreciable  'contact' 
with  the  upper  tube.  Heat  transfer  coefficients  may  then  be  expected  to  increase  with 
increasing  tube  spacing  (as  in  the  convection  regime)  with  a  possible  optimum.  How¬ 
ever,  enhancement  due  to  the  lower  tube  may  be  expected  to  decrease  when  high  heat 
fluxes  are  applied  to  the  upper  tube.  The  trends  of  these  influences  were  verified  by 
Fujita  et  al.  [Ref.  13  ]  and  Hahne  et  al.  [Ref.  14). 

An  additional  influence  in  the  boiling  regime  may  be  the  effect  of  'seeding'  from  the 
lower  tube  when  it  is  boiling.  At  low  and  medium  heat  fluxes  on  the  upper  tube  (active 
nucleation  site  density  is  low),  vapor  bubbles  from  the  lower  tube  may  impinge  and  in¬ 
fluence  enter  an  inactive  cavity  on  the  bottom  half  of  the  upper  tube.  This  may  prompt 
an  otherwise  inactive  site  to  become  active  earlier  than  it  would  have  done  for  a  single 
tube.  This  influence  would  also  be  more  effective  at  low  fluxes  (low  site  density)  on  the 
upper  tube.  At  higher  fluxes,  the  number  of  active  sites  is  higher  and  the  probability  of 
an  added  site  becoming  active  due  to  this  seeding  process  is  significantly  lower. 
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III.  DESCRIPTION  OF  EXPERIMENTAL  APPARATUS 


A.  GENERAL  DESCRIPTION 

The  apparatus  used  is  an  adaptation  of  the  apparatus  used  by  Karasabun  [Ref.  14: 
pp  24-41],  Reilly  [Ref.  15  :  pp.  30-44],  and  Sugiyama  [Ref.  1:  pp.  8-32]  in  previous  studies 
of  pool  boiling  of  R- 114/ oil  mixtures  from  single  tubes.  Karasabun  provides  complete 
details  of  the  original  configuration  of  the  apparatus.  The  current  apparatus  was  es¬ 
sentially  that  used  by  Sugiyama  for  single  tubes  with  modifications  made  to  accommo¬ 
date  two  tubes  in  the  evaporator.  Additionally,  the  original  R-12  cooling  system  was 
operated  in  conjunction  with  a  R-502  system  to  increase  cooling  capacity  for  the  in¬ 
creased  heat  load  of  two  tube  operation.  An  additional  smooth  and  high  flux  tube  were 
manufactured  in  order  that  both  a  smooth  and  an  enhanced  tube  set  could  be  studied 
in  the  two  tube  configuration.  The  unused  auxiliary  variac  power  supply  was  employed 
as  the  power  supply  for  the  second  tube.  A  two  tube  data  reduction  program  DRP72 
was  developed  by  adapting  Sugiyama's  single  tube  data  reduction  program  DRP7. 

The  apparatus  is  labeled  on  a  general  schematic  in  Figure  1  and  consists  essentially 
of  seven  components: 

1.  An  evaporator,  a  boiling  vessel  assembled  using  a  Pyrex-glass  tee  with 
aluminum/ teflon  endplatcs. 

2.  A  condenser,  assembled  using  a  similar  Pyrex-glass  tee  with  aluminum  endplates. 

3.  A  reservoir  for  R- 1 14  liquid  storage. 

4.  A  cooling  subsystem  composed  of  an  1/2  ton  R-502  and  a  1/4  ton  R-12  refriger¬ 
ation  plant,  a  30  gallon  water/ethylene  glycol  sump,  and  two  positive  displacement 
pumps. 

5.  A  vacuum  pump. 

6.  A  data  acquisition  and  instrumentation  system. 

7.  An  aluminum  framework  with  plexiglass  siding  within  which  components  1-3  were 
housed. 

The  apparatus  was  designed  for  reflux  operation.  Vapor  generated  in  the  evaporator 
followed  a  path  through  an  aluminum  L-shaped  pipe  to  the  condenser.  R-1I4 
condensate  then  returned  to  the  evaporator  via  copper  tubing  by  gravity.  The 
water, 'ethylene  glycol  sump  of  the  cooling  subsystem  was  maintained  between  -10  and 
-17  °C.  This  was  accomplished  using  two  separate  cooling  schemes.  The  R-502  refrig¬ 
eration  plant  cooled  the  mixture  via- a  counter  current  heat  exchanger  tlirough  which  the 
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Figure  1.  Schematic  of  Apparatus 
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water; ethylene  glycol  mixture  was  circulated  by  an  8-gpm  turbinc-tvpe  pump.  The  R-12 
refrigeration  plant  cooled  via  an  evaporator,  constructed  of  coiled  copper  tubing,  located 
directly  within  the  sump.  The  second  8-gpm  turbine-type  pump  circulated  the  mixture 
from  the  sump  through  copper  condensing  coils  within  the  condenser  via  a  control  valve 
(VC,  see  Figure  1),  and  then  returned  to  the  sump. 

An  alternate  mode  of  operation  was  used  to  evacuate  the  boiler  to  facilitate  tube 
change  out.  R-114  was  boiled  off  from  the  evaporator  and  condensed  as  before,  but  in 
this  case  R-114  condensate  was  directed  to  the  reservoir  (by  changing  certain  valves), 
instead  of  returning  to  the  evaporator.  Once  tube  changeout  was  completed  the 
evaporator  was  simply  refilled  from  the  reservoir  by  gravity. 

This  study  was  devoted  to  pure  R-114.  In  order  to  ensure  that  no  oil  could  intrude 
into  the  system,  the  oil  path  between  the  oil  reservoir  and  the  evaporator  (used  for 
R-l  14/oil  mixture  tests)  was  removed  and  the  access  to  the  evaporator  plugged.  The 
major  components  of  the  oil  subsystem  (reservoir  and  graduated  cylinder)  were  left  in¬ 
tact  for  use  in  future  studies. 

B.  BOILING  TEST  SECTION 
1.  Evaporator 

The  evaporator  consisted  of  a  Coming  Pyrex-glass  tee  (3  in.  nominal  interior 
diameter)  with  aluminum  endplates.  The  endplates  were  coupled  to  the  glass  tee  by 
Coming  cast  iron  removable  flanges.  The  glass  vessel  was  mounted  horizontally  with 
the  side-arm  of  the  tee  vertical.  The  major  modification  in  adapting  the  apparatus  from 
a  single  tube  to  two  tubes  was  to  the  evaporator  endplates.  New  endplates  were  manu¬ 
factured  with  thermocouple  and  liquid  fill/retum  penetrations  moved  to  the  periphery 
and  a  three  inch  hole  centered  on  the  axis  of  the  evaporator.  Teflon  inserts  were  man¬ 
ufactured  to  fit  tightly  into  this  hole  with  varied  spacings  for  the  two  test  tubes.  Though 
the  teflon  endplates  could  be  rotated  to  accommodate  a  variety  of  tube  geometries,  only 
vertical  spacing  was  addressed  in  this  study  (  i.e.  one  tube  vertically  below  the  other). 
The  addition  of  another  tube  to  the  evaporator  also  required  the  liquid  level  to  be  raised. 
The  new  liquid  level  was  only  10  mm  from  the  top  of  the  Pyrex  glass  tee  and  10  mm 
above  the  top  of  the  upper  tube  (note  that  for  all  spacings  the  upper  tube  was  fixed  in 
position  relative  to  the  evaporator  and  the  lower  tube  was  varied).  This  severely  reduced 
the  vapor  path  between  the  liquid  surface  and  the  top  of  the  evaporator  to  the  exit  tec. 
A  comparison  of  the  modified  and  previous  apparatus  liquid  levels,  tube  positions  and 
fittings  is  shown  in  Figure  2. 
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Figure  2.  Comparison  of  Modified  and  Previous  Apparatus 
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Pyrex-ghss  was  used  for  both  the  evaporator  and  condenser  due  to  its  greater 
strength  compared  to  ordinary  glass.  It  was  necessary  for  the  apparatus  to  withstand 
pressure  differences  (between  apparatus  interior  and  atmospheric)of  up  to  20  psig  due 
to  possible  R-114  vapor  pressures  at  high  room  temperatures  during  summer  months. 
In  addition,  a  glass  vessel  provided  several  other  advantages  over  a  metal  one: 

•  The  transparent  vessel  allowed  easy  visual  observation  and  videotaping  of  the 
boiling  phenomena  occurring  inside. 

•  The  smooth  interior  surface  minimized  any  nucleate  boiling  at  this  inner  surface. 


A  relief  valve  (set  at  20  psig)  was  mounted  in  the  aluminum  piping  between  the 
evaporator  and  condenser  to  prevent  the  safe  working  pressure  (30  psig)  of  the  Pyrex 
glass  tee  from  being  exceeded.  A  sketch  of  the  glass  tee  and  the  cast  iron  flanges  is 
shown  in  Figure  3.  A  sketch  of  an  endplate  and  a  teflon  block  insert  is  shown  in 
Figure  4. 

2.  Test  Tubes 

A  general  schematic  of  the  tubes  is  shown  in  Figure  5.  The  tubes  protruded 
through  (and  were  supported  by)  the  teflon  inserts  in  the  endplates  of  the  evaporator. 
The  teflon  inserts  were  sealed  by  viton  O-rings,  two  O-rings  between  the  teflon  inserts 
and  each  tube,  and  one  O-ring  between  the  insert  and  the  aluminum  endplate. 

Two  types  of  tube  were  used,  a  smooth  hard-copper  tube  and  a  High  Flux 
porous-coated  tube.  The  tubes  were  heated  via  a  stainless  steel,  240-volt,  1000-watt 
(nominal),  Watlow  Firerod  cartridge  heater,  6.35  mm  in  outer  diameter,  203.2  mm  in 
actual  length  with  an  actual  heated  length  of  190  mm.  The  heater  was  tightly  inserted 
into  a  copper  sleeve,  which  functioned  as  a  mounting  device  for  the  thermocouples.  The 
sleeve  was  then  inserted  in  the  tube.  Both  the  heater  and  the  sleeve  were  tinned  with  soft 
solder  prior  to  being  inserted  into  the  tube  and  the  whole  assembly  heated  in  a  furnace 
to  bond  the  assembly  together.  This  minimized  thermal  resistance  and  provided  a  uni¬ 
form  heat  flux  along  the  length  of  the  tube.  The  heater  and  sleeve  were  inserted  such 
that  the  central  190  mm  were  heated  radially  by  the  heater.  This  was  taken  as  the  active 
boiling  length.  A  correction  was  applied  for  the  heat  lost  from  the  two  ends  of  the  tube 
in  the  pool. 

The  tubes  were  each  instrumented  with  eight  thermocouples  soldered  into 
channels  which  were  machined  in  the  outer  surface  of  the  sleeve.  These  thermocouples 
were  located  at  various  axial  and  circumferential  locations  as  shown  in  Figure  6.  The 
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Figure  4.  Sketch  of  Endplates  and  Teflon  Inserts 
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thermocouple  grooves  were  axially  machined  to  the  nearest  end  of  the  sleeve  to  provide 
a  path  for  the  thermocouple  leads.  Type-T  Teflon  coated  copper-constantan 
thermocouple  wire  was  used  both  in  the  tubes  and  throughout  the  apparatus.  Dimen¬ 
sions  and  for  the  tubes  are  given  in  Table  1. 


Table  1.  TEST  TUBE  DIMENSIONS 


Tube  Type 

Dl(mm) 

D2(mm) 

Di(mm) 

Do(mm) 

L(mm) 

Lu(mm) 

Kwall 
( Wjm.K) 

Smooth 

12.44 

15.88 

12.70 

15.88 

190.0 

76.20 

344 

High  Flux 
(95/5  Copper- 
Nickel) 

12.95 

15.82 

13.20 

15.82 

190.0 

76.20 

45 

C.  CONDENSER  SECTION 

The  condenser  was  assembled  similarly  to  the  evaporator.  The  same  size  Pyrex-glass 
tee  was  used  as  the  main  vessel  with  aluminum  endplates.  The  glass  vessel  was  mounted 
vertically  with  side-arm  tee  horizontal  to  receive  the  R- 114  vapor.  A  helical  condensing 
coil  made  of  9.5  mm  copper  tubing  was  inserted  in  the  Pyrex  glass  tee.  Swagelock  fit¬ 
tings  were  used  to  connect  the  condenser  coil  to  the  coolant  tubing  through  the 
condenser  endplates.  The  coil  was  fabricated  to  an  approximate  outside  diameter  of  76 
mm,  providing  an  active  condensation  length  of  approximately  4.5  m. 

The  vacuum  pump  was  connected  to  the  top  of  the  condenser  via  two  isolation 
valves  to  remove  any  noncondensable  gases  that  collect  there.  A  tubing  connection  was 
placed  in  the  bottom  endplate  of  the  condenser  to  enable  R-114  condensate  to  drain 
back  to  the  evaporator  by  gravity.  Valve  and  tubing  lineup  was  such  that  condensate 
could  also  be  directed  back  to  the  R-l  14  reservoir.  The  condenser  was  connected  to  the 
evaporator  by  an  L  shaped  aluminum  tube  two  inches  in  diameter.  The  pressure  relief 
valve,  mentioned  earlier,  and  a  bourdon  pressure  gage  were  mounted  on  this  aluminum 
tube. 

D.  COOLING  SECTION 
1.  Coolant  Sump 

A  0.15  ml,  rectangular  sump  for  the  water-ethylene  glycol  mixture  was  made  of 
13  mm  Plexiglas  sheet.  The  sides  were  glue  jointed  using  a  methylene  chloride  solution 
with  additional  support  provided  by  small  screws.  The  tank  was  placed  on  a  wooden 
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Figure  5.  Schematic  of  the  Ti 


SECTION  A‘A  (  DIMENSIONS  IN  MM  ) 


platform  to  separate  it  from  the  concrete  floor  and  all  sides  were  insulated  with  22  mm 
sheet  insulation.  The  coolant  was  a  52%  mixture  of  ethylene  glycol/distilled  water 
producing  a  solution  freezing  point  of  approximately  -25  °C. 

2.  Refrigeration  Plants 

A  1/2  ton  R-502  and  a  1/4  ton  R-12  refrigeration  plant  were  used  to  chill  the 
ethylene  glycol/water  mixture.  Each  consisted  of  a  hermetically  sealed  compressor  as¬ 
sembly,  an  air  cooled  condenser,  a  receiver,  a  filter-dryer,  a  pressure  regulator,  a  tem¬ 
perature  control  switch  and  a  thermostatic  expansion  valve.  A  counter  current  heat 
exchanger  was  used  as  the  evaporator  for  the  R-502  plant.  An  evaporator  for  the  R-12 
plant  was  constructed  of  9.5  mm  copper  tubing  which  was  coiled  and  placed  directly  in 
the  coolant  sump.  Both  plants  were  controlled  by  a  temperature  control  switch  with 
each  plant  having  its  own  thermostatic  expansion  valve.  The  plants  were  adjusted  to 
maintain  coolant  temperatures  at  about  -17  °C.  Figure  7  shows  a  schematic  of  the 
R-502  refrigeration  plant.  Figure  1  shows  placement  of  the  R-12  refrigeration  plant 
evaporator. 

3.  Pump  and  Control  Valve 

The  two  8  gpm,  115  V  Burks  turbine  type,  positive-displacement  pumps  were 
floor  mounted  next  to  the  coolant  sump.  One  pumped  the  ethylene  glycol/water  coolant 
mixture  through  the  R-502  counter-current  heat  exchanger.  The  other  pumped  the 
coolant  mixture  to  the  condensing  coil  via  control  valve  VC  (see  Figure  1).  Valve  VC 
was  the  operators  primary  control  device  to  maintain  saturation  pressure  at  a  desired 
value  by  varying  the  coolant  flow  rate  (and  hence  the  condensation  rate)  in  the 
condenser.  A  bypass  line  was  also  installed  on  the  discharge  line  from  the  pump.  Dis¬ 
charge  bypass  was  controlled  by  valve  V9.  The  bypass  line  served  to  avoid  overloading 
the  positive  displacement  pump  when  small  heat  loads  were  placed  on  the  condenser 
(low  coolant  flow  rates).  The  bypass  return  line  returned  to  the  sump  via  a  penetration 
in  the  top  of  the  tank,  where  the  coolant  return  stream  from  the  condenser  returned  as 
well. 

E.  R- 114  RESERVOIR 

The  R-114  reservoir  was  an  aluminum  cylindrical  vessel,  230  mm  in  diameter  and 
254  mm  in  height.  The  reservoir  was  equipped  with  a  transparent  plastic  tubular  sight 
glass  to  monitor  liquid  level.  The  reservoir  was  located  within  the  apparatus  enclosure 
at  a  vertical  location  above  that  of  the  evaporator  and  below  that  of  the  condenser  to 
facilitate  both  gravity  flow  from  the  condenser  to  the  reservoir  and  from  the  reservoir’ 
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e  7.  Schematic  of  R-502  Refrigeration  System 
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Air-Cooled  Condenser 


to  the  evaporator.  The  reservoir  could  be  replenished  from  an  outside  source  (storage 
cylinder)  via  a  connection  on  the  vacuum  line  from  the  condenser.  Vapor  from  the 
storage  cylinder  was  condensed  in  the  condenser  and  drained  into  the  reservoir.  The 
arrangement  of  the  reservoir  is  shown  in  Figure  1. 

F.  APPARATUS  ENCLOSURE 

The  apparatus  (apart  from  the  cooling  subsystem)  was  contained  in  an  aluminum 
framed,  plexiglas  enclosure.  The  enclosure  consisted  of  a  rectangular  welded  frame  ap¬ 
proximately  1  m  x  0.5  m  x  0.6  m.  The  frame  was  divided  into  upper  and  lower  halves 
with  the  lower  half  of  the  frame  straddling  and  enclosing  the  coolant  sump.  The  upper 
half  of  the  frame  was  enclosed  at  the  top  and  bottom  with  aluminum  sheet.  The  four 
remaining  sides  were  enclosed  with  13  mm  Plexiglas.  The  opposing  0.5  m  x  0.6  m 
plexiglas  sides  were  equipped  with  hinges  to  allow  access  to  the  interior.  The  refriger¬ 
ation  plants,  pumps,  and  heat  exchanger  were  located  on  the  laboratory  floor  adjacent 
to  the  enclosure.  Data  acquisition  equipment  was  located  in  a  separate  cabinet  also 
adjacent  to  the  enclosure.  The  enclosure  provided  some  insulation  from  ambient  con¬ 
ditions  and  provided  a  safety  barrier  between  personnel  and  the  apparatus  should  one 
of  the  glass  vessels  fail. 

G.  INSTRUMENTATION 

1.  Power  Measurement 

A  240  volt  AC  supply  was  used  as  the  power  source  for  the  apparatus  and  was 
controlled  via  a  variac.  Output  from  the  variac  ranged  from  0-220  V,  0-5  A,  adjustable 
by  the  operator,  to  obtain  a  desired  heat  flux  at  the  tube  surface.  Power  input  to  the 
tube  heater  was  measured  with  an  AC  current  sensor  and  a  voltage  sensor  (both  sensors 
output  in  volts).  The  voltage  sensor  output  was  also  processed  through  an  AC-DC  true 
R.M.S.  converter  which  provided  a  proportional  output  signal  (also  in  volts).  The  cur¬ 
rent  and  R.M.S.  voltage  output  were  input  to  the  data  acquisition  system.  Calibration 
of  power  measurement  was  checked  by  comparing  voltage  and  amperage  measurements 
against  a  digital  voltmeter  and  ammeter.  The  power  measurement  system  is  shown 
schematically  in  Figure  8. 
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Figure  8.  Schematic  of  the  Power  Measurement 
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2.  Temperature  Measurement 

Several  temperatures  were  monitored  throughout  the  apparatus.  These  were 

•  Average  test  tube  wall  temperature  (using  the  8  thermocouples  positioned  as  men¬ 
tioned  abov"). 

•  Pool  temperature  (three  thermocouples  located  at  three  different  positions 
longitudinally  within  the  pool  but  at  approximately  the  same  height) 

•  Coolant  sump  temperature  (one  thermocouple) 

The  pool  thermocouples  were  inserted  into  special  housings  that  penetrated  the 
evaporator  endplates  (Figure  9).  The  main  body  of  the  housing  was  manufactured  from 
stainless  steel  (low  thermal  conductivity)  to  minimize  errors  in  pool  temperature  meas¬ 
urement  due  to  conduction  from  the  surroundings  through  the  housing.  The  tip  of  the 
housing  was  manufactured  from  copper  to  take  advantage  of  copper's  high  thermal 
conductivity  and  to  minimize  the  temperature  difference  between  the  pool  and  the 
thermocouple. 

Copper-constantan  thermocouples  were  used  for  all  measurements. 
Thermocouples  were  read  directly  by  a  Hewlett-Packard  3497A  data  acquisition  system 
controlled  by  a  Hewlett-Packard  9826  computer.  The  average  temperature  for  each 
thermocouple  was  obtained  by  scanning  its  output  20  times  over  5  seconds  and  taking 
an  average. 

H.  DATA  ACQUISITION  AND  REDUCTION 

All  sensor  outputs  (thermocouples,  current  sensor  and  R.M.S.  voltage)  were  ana¬ 
lyzed  by  a  Hewlett-Packard  9826  computer  and  the  data  stored  using  the  iterative  data 
collection/reduction  program  DRP72  (Sugiyama's  single  tube  program  DRP71  (Ref.  1] 
was  used  during  initially  repeatability  experiments).  The  program  was  controlled  (by  the 
operator)  by  keyboard  interaction  to  prompt  the  system  to  take  desired  steps.  Raw  data 
was  stored  on  the  computer  hard  drive  while  a  printout  of  reduced  data  was  provided 
on  a  Hewlett-Packard  Inkjet  printer.  Channel  assignments  for  the  various  sensor  inputs 
to  the  data  acquisition  system  are  shown  in  Table  2. 
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Figure  9.  Sketch  of  Thermocouple  Housing 
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Table  2.  HP  3497A  CHANNEL  ASSIGNMENTS 


Channel 

Assignment 

00-07 

Upper  test  tube  wall  temperatures 

08-15 

Lower  test  tube  wall  temperatures 

16-18 

Pool  liquid  temperatures 

19 

Coolant  sump  temperature 

20 

RMS  voltage  tube  heaters 

21 

Upper  tube  current  sensor 

22 

Lower  tube  current  sensor 
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Following  data  acquisition,  the  data  were  reduced  utilizing  the  following 
procedure l: 

1.  Input  the  name  of  the  user- specified  file  to  be  stored  on  hard  drive. 

2.  Select  number  of  tubes  to  be  powered  and  from  which  tube  data  is  to  be  collected 
(upper  or  lower). 

3.  Select  tube  type  (all  dimensions  of  the  boiling  test  tubes  are  then  automatically 
selected). 

4.  Set  desired  saturation  temperature  (°C)  of  the  pool  (for  these  tests,  2.2  °C  was  used, 
corresponding  to  approximately  l  atmosphere). 

5.  Input  desired  heat  flux  setting. 

6.  Set  desired  heat  fluxes  by  adjusting  appropriate  variac. 

7.  Set  desired  saturation  temperature  by  adjusting  flow  of  coolant  through  condenser 
coils  with  control  valve  VC. 

8.  Once  saturation  temperature  is  achieved,  wait  for  steady  state  conditions  (minimum 
of  5  minutes)  prior  to  taking  data. 

9.  Prompt  data  acquisition  unit  to  scan  all  channels  listed  in  Table  2.  All  channel 
readings  are  made  in  volts  and  stored  in  user  specified  fields. 

10.  Compute  parameters  from  these  voltages  (i.e.  temperature  and  power). 

11.  Compute  the  heat  transfer  rate  from  the  cartridge  heater. 

12.  Compute  the  average  wall  temperature  of  the  test  tubes  and  calculate  the  wall 
superheat  (Twall  -  Tsat) 

13.  Compute  the  physical  properties  of  R-114  using  the  property  correlations  (see 
Sugiyama[Ref.  1])  at  film  temperature  ((Twall -Tsat)/2). 

14.  Compute  the  natural  convection  heat-transfer  coefficient  of  R-114  from  the  un¬ 
heated  ends  of  the  test  tubes. 

15.  Compute  heat  losses  from  the  unheated  ends  of  each  tube. 

16.  Calculate  heat  flux  from  the  heated  length  of  each  tube. 

17.  Calculate  the  heat-transfer  coefficient  of  the  R-l  14  from  the  heated  length 
of  each  tube. 

18.  Store  heat  flux  and  wall  superheat  for  each  data  set  in  user  specified  field. 

19.  Plot  the  data  using  available  software.  For  this  study,  plots  were  produced  on  the 
NPS  mainframe  computer. 

Sample  calculations  of  the  above  procedure  are  given  in  Appendix  A. 


1  This  procedure  was  essentially  identical  to  that  followed  by  Sugiyama  (Ref.  1]  and  therefore 
his  procedure  is  largely  reproduced. 
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IV.  EXPERIMENTAL  PROCEDURE 


A.  ASSEMBLY 

The  mechanical  assembly  of  the  tubes  within  the  evaporator  was  very  straight  for¬ 
ward  and  will  not  be  discussed  in  great  detail.  However  the  preparatory  steps  following 
assembly  are  important  from  the  point  of  view  of  ensuring  a  leaktight  apparatus  to 
prevent  loss  of  R-114  from  the  system  and  the  intrusion  of  noncondensable  gases  into 
the  system.  Additionally  it  should  be  noted  that  vertical  alignment  of  tubes  was  ensured 
by  using  an  air  bubble  level. 

1.  Pressure  Test  of  the  Apparatus 

Following  reassembly  of  the  evaporator,  a  pressure  test  was  conducted  on  the 
apparatus  by  pressurizing  the  system  (with  air)  up  to  10  psig.  A  soap-water  mixture 
then  was  sprayed  on  all  joints  and  leaks  were  detected  by  bubble  formation  from  the 
soap-water  mixture.  Any  leaks  were  then  repaired.  The  apparatus  was  repeatedly 
pressure  tested  until  there  were  no  ''visible"  leaks  detected. 

2.  Vacuum  Test 

Following  a  successful  pressure  test,  the  apparatus  was  evacuated  (using  the 
vacuum  pump)  to  approximately  27  inHg.  The  apparatus  was  then  allowed  to  stand 
overnight.  If  an  appreciable  vacuum  loss  was  observed  (i.e.  a  drop  of  more  than  1  inHg. 
in  a  24  hour  period),  the  whole  process  was  repeated,  beginning  with  a  pressure  test, 
until  all  leaks  were  corrected. 

3.  Filling  the  Evaporator 

After  the  apparatus  was  successfully  vacuum  tested,  the  evaporator  was  filled 
from  the  R-114  reservoir.  The  pressures  were  first  equalized  between  the  evaporator  and 
the  reservoir  by  cracking  open  valve  V7.  R-l  14  liquid  was  then  drained  by  gravity  into 
the  evaporator  through  valve  V6  until  the  liquid  reached  the  desired  evaporator  level, 
approximately  10  mm  above  the  top  of  the  upper  tube.  Once  the  evaporator  was  filled, 
the  reservoir  was  isolated  from  the  rest  of  the  apparatus  by  closing  all  connecting  valves. 

4.  Sensor  Connections 

Thermocouple  leads  and  any  other  sensor  connections  were  not  reconnected 
until  the  evaporator  was  successfully  filled  without  leaks.  This  prevented  unnecessary 
wear  and  tear  on  the  heater  leads  and  thermocouple  wire  due  to  the  large  number  of  tube 
changes  required. 
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5.  Degassing  and  Acquisition  Channel  Check 

Once  all  connections  were  made,  program  SETUP72  checked  the  output  on  all 
channels.  Any  erroneous  output  was  promptly  investigated  and  the  necessary  cor¬ 
rections  made.  Before  any  heat  was  applied  to  either  test  tube,  the  system  pressure  was 
reduced  to  the  desired  saturation  pressure  by  opening  flow  of  the  coolant  mixture  to  the 
condenser.  Each  tube  in  turn  was  boiled  vigorously  at  the  highest  heat  flux  setting 
(approximately  80  kW/m i3)  for  about  10  minutes  in  order  to  degas  the  refrigerant  and  to 
remove  excess  air  from  the  tube  surface  cavities.  Noncondensable  gases  then  collected 
at  the  top  of  the  condenser  and  were  removed  by  the  vacuum  pump.  During  the 
degassing  procedure,  program  SETUP72  was  again  used  to  observe  thermocouple 
readings  and  power  sensors  to  ensure  proper  operation.  Any  faulty  thermocouples  were 
marked  to  ensure  they  were  excluded  during  data  runs.  Following  degassing,  the  appa¬ 
ratus  was  secured  and  the  tubes  allowed  to  soak  overnight  in  the  R-114  pool  to  provide 
good  surface  wetting. 

B.  NORMAL  PROCEDURE 

The  following  procedure  was  used  to  obtain  heat  transfer  data2: 

1.  Prior  to  system  startup,  the  refrigeration  plants  were  operated  for  approximately  1 
hour  to  reduce  the  coolant  sump  temperature  to  about  -15  °C. 

2.  The  data  acquisition/control  unit,  computer  and  variac  panel  were  switched  on. 

3.  The  computer  program  SETUP72  was  loaded  and  run:  1)  All  data  acquisition 
channels  were  then  rechecked.  2)  A  power  output  of  approximately  2.5  Watts  was 
input  into  each  tube  to  check  operation  of  the  heater  and  power  sensors.  3)  The 
average  temperature  of  the  refrigerant  was  slowly  reduced  to  2.2  °C  by  circulating 
a  small  amount  of  coolant  through  the  condenser. 

4.  The  data  acquisition  program  DRP72  was  loaded  and  run. 

5.  The  desired  heat  flux  setting  for  the  lower  tube  was  input  to  the  program  and  the 
lower  tube  variac  adjusted  to  give  the  desired  heat  flux  (within  ±  500  IV/m 2 ). 

6.  The  control  valve  VC  was  adjusted  to  regulate  the  flow  of  cooling  liquid  through 
the  condenser  to  maintain  a  constant  saturation  temperature  at  a  given  heat  flux. 
Desired  versus  actual  saturation  temperatures  were  monitored  continuously  by  the 
program  until  they  agreed  to  within  ±  0.1  °C. 

7.  For  each  data  point,  conditions  in  the  evaporator  were  allowed  to  stabilize  for  at 
least  five  minutes  prior  to  taking  data.  The  following  raw  data  were  measured  and 
stored  in  a  user  specified  field:  local  test  tube  wall  temperatures,  pool  liquid  tem¬ 
peratures,  sump  temperature,  current  sensor  readings  and  voltage  sensor  readings. 


2  Ibid 
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8.  Two  data  points  were  taken  at  each  desired  heat  flux  and  saturation  temperature. 
The  following  processed  data  were  recorded  as  a  printout:  wall  temperatures  of  the 
test  tubes,  liquid  pool  temperatures,  vapor  temperature,  sump  temperature,  wall 
superheat,  heat-transfer  coefficient  and  the  heat  flux. 

9.  For  each  data  set,  the  above  procedure  was  repeated  from  step  5.  Various  heat  flux 
steps  were  used  to  obtain  uniform  steps  on  a  log-log  scale.  For  increasing  flux, 
smaller  steps  were  used  up  until  the  incipience  of  boiling  in  order  to  accurately  de¬ 
termine  the  point  of  incipience. 

C.  DATA  LISTING 

Data  were  filed  using  the  following  file  name  system: 

•  Files  were  given  10  character  names  (ex.  DAT0531I52). 

•  The  first  three  characters  DAT  simply  refer  to  data. 

•  The  next  four  characters  date  the  file  (0531  =  31  May). 

•  The  eighth  character  indicated  an  increasing  or  decreasing  run  (I  =  increasing,  D 
=  decreasing). 

•  The  ninth  character  indicated  tube  type  ad  listed  in  program  DRP72  (4  *  smooth 
tube,  5  -  High  Flux  tube). 

•  The  tenth  character  indicated  which  program  wad  used  DRP71  or  DRP72  (1  * 
DRP71,  2  -  DRP72). 

•  The  11th  character  when  present  indicated  successive  runs  for  the  indicated  tube 
and  indicated  program  for  that  day. 

Table  3  is  a  listing  of  data  runs. 
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Table  3.  LISTING  OF  DATA  RUNS 


Data  File 

Tube  Type 

Purpose 

DAT0122I51 

High  Flux 

Cal;  repeatability;  single  tube 

DAT0123I52 

High  Flux 

Cal;  repeatability;  single  tube 

DAT0125I52 

High  Flux 

Repeatability;  p/d  =2 

DAT0127I2 

High  Flux 

Repeatability;  p/d  -2 

DATO 130152 

High  Flux 

Repeatability;  p/d  =2 

DAT0130D52 

High  Flux 

Repeatability;  p/d  =2 

DAT03 12142 

Smooth 

Data;  repeatability;  p/d  =  2 

DAT0312D41 

Smooth 

Data;  repeatability;  p/d  =2 

DAT03 13141 

Smooth 

Repeatability;  p/d  -2 

DAT0313D41 

Smooth 

Repeatability;  p/d=  2 

DAT03 17142 

Smooth 

Repeatability;  p/d=  2 

DAT0317D42 

Smooth 

Repeatability;  p/d  =2 

DAT0320I41 

Smooth 

Repeatability;  p/d  =2 

DAT0320D41 

Smooth 

Repeatability;  p/d  =2 

DAT0330I42 

Smooth 

Repeatability;  p/d  =2 

DAT0330D42 

Smooth 

Repeatability;  p/d  -2 

DAT0331I42 

Smooth 

Data;  p/d=  2;  500  Wlm2  on  lower 
tube 

DAT0331D42 

Smooth 

Data;  p/d  =  2;  500  W /m2  on  lower 
tube 

DAT0401I42 

Smooth 

Data;  p/d=2;  1  kWjm1  on  lower 
tube 

DAT0401D42 

Smooth 

Data;  p/d  =2;  1  klV/m 2  on  lower 
tube 

DAT0404I42 

Smooth 

Data;  p/d  =  2;  1  kW/m2  on  lower 
tube 

DAT0404I421 

Smooth 

Data;  p/d  =  2;  1  klV/m2  on  lower 
tube 

DAT0404D421 

Smooth 

Data;  p/d=  2;  1  klVjm 2  on  lower 
tube 

DAT0406142 

Smooth 

Data;  p/d=  2;  10  klVIrn2  on  lower 
tube 

26 


Continuation  of  Table  3. 

Data  File 

Tube  Type  • 

Purpose 

DAT0406D42 

Smooth 

Data;  p/d  =  2;  10  klVjm 2  on  lower 
tube 

DAT0407I42 

Smooth 

Data;  p/d  =  2;  25  kWjm2  on  lower 
tube 

DAT0407D42 

Smooth 

Data;  p/d=  2;  25  klV/m 2  on  lower 
tube 

DAT0408I42 

Smooth 

Data;  p/d  =  2;  3  klV/m1  on  lower 
tube 

DAT0408D42 

Smooth 

Data;  p/d  =2;  3  kWjm1  on  lower 
tube 

DAT04 10142 

Smooth 

Data;  p/d=  2;  Tubes  run  up  to¬ 
gether 

DAT0410D42 

Smooth 

Data;  p/d  =2;  Tubes  run  down 
together 

DAT0415I42 

Smooth 

Data;  p/d=  1.8;  10  kW/ni2  on 
lower  tube 

DAT0415D42 

Smooth 

Data;  p/d=  1.8;  10  kWjm 2  on 
lower  tube 

DAT04 151421 

Smooth 

Data;  p/d  =  1.8;  25  kW/m2  on 
lower  tube 

DAT0415D421 

Smooth 

Data;  p/d=  1.8;  25  klV/m 2  on 
lower  tube 

DAT04 17142 

Smooth 

Data;  p/d=  1.8;  no  power  on 
lower  tube 

DAT0417D42 

Smooth 

I 

Data;  p/d=  1.8;  no  power  on 
lower  tube 

DAT0418I42 

Smooth 

Data;  p/d=  1.8;  1  klV/m2  on 
lower  tube 

DAT0418D42 

Smooth 

Data;  p/d=  1.8;  1  klV/m2  on 
lower  tube 

DAT0419I42 

Smooth 

Data;  p/d=  l.S;  3  kll'ltn2  on 
lower  tube 

DAT0419D42 

Smooth 

Data;  p,d=  1.8;  3  klV/m 2  on 
lower  tube 

DAT0423I42 

Smooth 

Data;  p/d=  1.5;  no  power  on 
lower  tube 
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Continuation  of  Table  3 


Data  File 

Tube  Type 

Purpose 

DAT0423D42 

Smooth 

Data;  p/d=  1.5;  no  power  on 
lower  tube 

DAT0424I42 

Smooth 

Data;  p/d=  1.5;  3  kW/m2  on 
lower  tube 

DAT0424D42 

Smooth 

Data;  p/d=  1.5;  3  klVjm2  on 
lower  tube 

DAT0425I42 

Smooth 

Data;  p/d=  1.5;  1  klVjm 2  on 
lower  tube 

DAT0425D42 

Smooth 

Data;  p/d*  1.5;  1  kW/m2  on 
lower  tube 

DAT0426I42 

Smooth 

Data;  p/d*  1.5;  10  klVjm2  on 
lower  tube 

DAT0426D42 

Smooth 

Data;  p/d*  1.5;  10  kW/m 2  on 
lower  tube 

DAT0427I42 

• 

Smooth 

Data;  p/d-  1.5;  25  kW/m2  on 
lower  tube 

DAT0427D42 

Smooth 

Data;  p/d*  1.5;  25  kWIm2  on 
lower  tube 

DAT0430I52 

High  Flux 

Data;  p/d=  1.5;  1  klVjm2  on 
lower  tube 

DAT0430D52 

High  Flux 

Data;  p/d“  1.5;  1  klVjm2  on 
lower  tube 

DAT0501I52 

High  Flux 

Data;  p/d*  1.5;  10  klV/m2  on 
lower  tube 

DAT0501D52 

High  Flux 

Data;  p/d*  1.5;  10  klV/m 2  on 
lower  tube 

DAT050 11522 

High  Flux 

Data;  p/d=  1.5;  25  klVjm2  on 
lower  tube 

DAT0501D522 

High  Flux 

Data;  p/d*  1.5;  25  klV/m2  on 
lower  tube 

DAT0502I52 

High  Flux 

Data;  p/d=  1.5;  3  klVjm2  on 
lower  tube 

DAT0502D52 

High  Flux 

Data;  p/d=  1.5;  3  klVjm2  on 
lower  tube 

DAT0503I52 

High  Flux 

Data;  p.  d=  1.5;  no  power  on 
lower  tube 
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Continuation  of  Table  3. 


Data  File 

Tube  Type 

Purpose 

DAT0503D52 

High  Flux 

Data;  p/d  =  1.5;  no  power  on 
lower  tube 

DAT0506I52 

High  Flux 

Data;  p/d=  1.8;  no  power  on 
lower  tube 

DAT0506D52 

High  Flux 

Data;  p/d=  1.8  power  on 

lower  tube 

DAT0507I52 

High  Flux 

Data;  p/d=  1.8;  1  kW/m2  on 
lower  tube 

DAT0507D52 

High  Flux 

Data;  p/d=  1.8;  1  kWlrri2  on 
lower  tube 

DAT0508I52 

High  Flux 

Data;  p/d=  1.8;  3  kWlrri2  on 
lower  tube 

DAT0508D52 

High  Flux 

Data;  p/d=  1.8;  3  kW/ni2  on 
lower  tube 

DAT0508I521 

High  Flux 

Data;  p/d=  1.8;  10  kWlrri2  on 
lower  tube 

DAT0508D52I 

High  Flux 

Data;  p/d=  1.8;  10  kWlrri1  on 
lower  tube 

DAT0509I52 

High  Flux 

Data;  p/d=  1.8;  25  kW/m2  on 
lower  tube 

DAT0509D52 

High  Flux 

Data;  p/d=  1.8;  25  kW/m2  on 
lower  tube 

DAT0509D52 

High  Flux 

Data;  p/d=  1.8;  25  kW/rri2  on 
lower  tube 

DAT05 15152 

High  Flux 

Data;  p/d=  2;  25  kWlrri2  on  lower 
tube 

DAT0515D52 

High  Flux 

Data;  p/d  =  2;  25  k  W/m2  on  lower 
tube 

DAT05 16152 

High  Flux 

Data;  p/d=  2;  10  kW/rn2  on  lower 
tube 

DAT0516D52 

High  Flux 

Data;  p/d=  2;  10  kW/m 2  on  lower 
tube 

DAT05 17152 

High  Flux 

Data;  p/d=  2;  1  klV/m2  on  lower 
tube 

DAT05 19152 

High  Flux 

Data;  p/d=  2;  3  kW/m2  on  lower 
tube 
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Continuation  of  Table  3 


Data  File 

Tube  Type 

Purpose 

DAT0520I52 

High  Flux 

Data;  p/d  =  2;  no  power  on  lower 
tube 

DAT0529I52 

High  Flux 

Data;  p/d  =  2;  tubes  run  up/down 
together 

DAT0530I52 

High  Flux 

Data;  p/d=  2;  lower  tube  position 
plugged 
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V.  RESULTS  AND  DISCUSSION 


It  should  be  noted  and  it  is  stressed  that  results  are  expressed  in  terms  of  enhance¬ 
ment  of  the  upper  tube  over  a  single  tube  and  that  the  results  are  applicable  to  this  ap¬ 
paratus.  These  results  may  not  be  reproducible  outside  of  this  apparatus. 

A.  REPRODUCIBILITY 

To  investigate  repeatability,  tests  were  conducted  with  both  a  'single'  High  Flux  and 
smooth  tube  (with  only  the  upper  tube  operating).  Runs  were  conducted  using  both 
program  DRP71  (from  Sugiyama's  single  tube  work  [Ref.  1])  and  DRP72  with  no  heat 
flux  applied  to  the  bottom  tube.  This  ensured  that  the  new  program  DRP72  performed 
correctly.  An  additional  set  of  runs  were  made  using  the  pair  of  smooth  tubes  with  a 
heat  flux,  of  1  kW/m*  applied  to  the  lower  tube  using  program  DRP72.  The  runs  for  all 
these  comparisons  are  listed  in  Table  4.  A  pitch-to-diameter  ratio  of  2  was  used  for  the 
runs  listed  in  Table  4.  A  plot  of  heat  flux  vs.  wall  superheat  (Thetab)  for  these  runs  is 
shown  in  Figure  10  through  Figure  12.  Figure  10  shows  the  'single'  smooth  tube  data 
together  with  the  single  smooth  tube  data  of  Sugiyama  [Ref.  IJ.  The  three  runs  agree 
very  well  and  are  within  10%  of  Sugiyama's  data;  any  discrepancy  is  attributed  to  the 
presence  of  the  unheated  lower  tube  modifying  the  flow  over  the  upper  tube.  Clear  ev¬ 
idence  of  hysteresis  is  seen  as  with  Sugiyama's  work;  as  the  heat  flux  is  decreased  ,  a 
closed  loop  is  formed  indicating  that  as  the  nucleation  sites  die  out,  the  transfer  mech¬ 
anism  returns  to  one  of  natural  convection.  Figure  1 1  shows  the  'single'  High  Flux  tube 
data  together  with  the  single  tube  High  Flux  data  of  Sugiyama  [Ref.  1].  Again  good 
agreement  is  obtained  except  at  the  lowest  heat  fluxes  and  lowest  AT's  where  discrep¬ 
ancies  of  up  to  50%  are  noted.  However,  due  to  the  very  high  uncertainty  in  this  region 
(marked  on  Figure  11),  primarily  due  to  uncertainty  in  the  wall  temperature  measure¬ 
ment  due  to  the  fabrication  procedures,  the  agreement  is  still  considered  reasonable.  It 
should  also  be  noted  that  run  DAT0530  was  conducted  with  plugs  in  place  of  the  bottom 
tube  (as  opposed  to  the  bottom  tube  having  zero  applied  heat  flux)  and  also  shows  ex¬ 
cellent  agreement.  This  indicates  quite  clearly  that  with  the  lower  tube  off,  the  upper 
tube  behaves  almost  exactly  like  a  single  tube.  Note  also  that  the  hysteresis  'loop'  is 
open  (again  similar  to  the  work  of  Sugiyama)  indicative  of  the  fact  that  there  are  still  a 
significant  number  of  active  nucleation  sites  operating  with  the  High  Flux  tube  even  at 
heat  fluxes  as  low  as  1000  W/ml.  Figure  12  shows  the  three  smooth  tube  runs  con- 
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ducted  with  a  1  kW/m1  heat  flux  applied  to  the  bottom  tube.  Without  discussing  the 
significance  of  the  results  here  (see  section  B.),  it  can  be  seen  that  repeatability  is  good 
and  within  5%  for  all  three  data  sets.  Based  on  Figure  10  through  Figure  12,  data  re¬ 
peatability  and  agreement  with  past  single  tube  work  carried  out  on  the  same  apparatus 
is  considered  good. 


Table  4.  DATA  RUNS  USED  FOR  REPEATABILITY 


Data  Set 

Tube  Type 

Lower  Tube  Setting 

DAT0313I41 

smooth 

no  power  on  lower  tube 

DAT0313D41 

smooth 

no  power  on  lower  tube 

DAT0320I41 

smooth 

no  power  on  lower  tube 

DAT0320D41 

smooth 

no  power  on  lower  tube 

DAT0330I42 

smooth 

no  power  on  lower  tube 

DAT0330D42 

smooth 

no  power  on  lower  tube 

DAT0401I42 

smooth 

l  kW\rrt 

DAT0401D42 

smooth 

1  kWInt 

DAT0404I42 

smooth 

1  kWInt 

DAT0404D42 

smooth 

1  kWIrrt 

DAT0407I42 

smooth 

1  kW/m2 

DAT0407D42 

smooth 

1  kWjm2 

DAT0123I52 

High  Flux 

no  power  on  lower  tube,  increas¬ 
ing  run  only 

DAT0130I52 

High  Flux 

no  power  on  lower  tube 

DAT0130D52 

High  Flux 

no  power  on  lower  tube 

DAT0530I52 

High  Flux 

lower  tube  removed  and  position 
plugged,  increasing  and  decreas¬ 
ing  run  recorded  in  this  file 

B.  INFLUENCE  OF  THE  LOWER  TUBE 

To  investigate  the  influence  of  a  lower  upon  an  upper  tube,  each  upper  tube  (for 
both  types  of  tube  surface)  was  run  up  and  down  (starting  in  the  convection  region) 
through  various  heat  flux  settings  for  three  different  pitch-to-diameter  (p/d)  ratios  and 
five  different  fixed  heat  flux  settings  on  the  lower  tube.  Note  that  in  each  test,  the  same 
tube  surface  was  used  for  the  upper  tube  and  the  lower  tube  (i.e.  the  surfaces  were  never 
mixed).  The  p/d  ratios  used  were  1.5,  1.8  and  2.  A  p/d  ratio  of  2  was  selected  to  match 
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Figure  10.  Repeatability  Comparison  for' Smooth  Tube,  No  Meat  Flux  on  Lower 
Tube 
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Figure  1 1.  Repeatability  Comparison  for  Hi  Flux  Tube,  No  Heat  Flux  on  Lower 
Tube 
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Figure  12.  Repeatability  Comparison  for  Smooth  Tube,  Heat  Flux  of  1  AIF/m1  on 
Lower  Tube 
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the  vertical  pitch,  not  only  in  Naval  centrifugal  flooded  evaporators,  but  also  in  the 
bundle  apparatus  in  the  Heat  Transfer  Laboratory.  The  fixed  lower  tube  heat  flux  set¬ 
tings  (LTHFS)  used  were  0,  1,  3,  10  and  25  kiV/rri2  (there  was  one  test  conducted  with 
a  lower  tube  heat  flux  setting  of  500  W jm1).  To  evaluate  the  influence  of  the  lower  tube, 
the  data  has  been  presented  in  two  ways:  the  first  by  common  p/d  ratio  and  the  second 
by  common  LTHFS.  In  every  case,  plots  of  heat  flux  vs  AT  are  shown. 

1.  The  Effect  of  Heating  the  Lower  Tube 
a.  Smooth  Tube  p(d  Ratio  of  2 

Figure  13  shows  data  taken  for  a  p/d  ratio  of  2  for  the  six  LTHFS  labeled 
in  the  legend  representing  klV/m 2  and  CC  representing  the  Churchill  and  Chu  correlation 
[Ref.  2J.  This  labeling  was  used  for  all  the  5  subsequent  plot  legends.  An  extra  run  was 
made  at  this  pitch  with  a  LTHFS  of  500  W/m2  for  comparison.  The  natural  convection 
regime  shows  very  small  enhancements  with  increasing  LTHFS  of  up  to  3  kW/m2.  Of 
note  is  that  for  LTHFS  of  0,  0.5,  1,  and  3  /clF/m3  ,  the  lower  tube  was  in  the  convection 
regime  at  the  beginning  of  the  increasing  run.  For  the  10  and  25  kW/m2  case  the  lower 
tube  had  nucleated  immediately  and  was  nucleating  for  the  entire  run.  The  natural 
convection  curves  are  still  very  close  to  values  calculated  from  Churchill  and  Chu's  cor- 
relations  [Ref  2]  and  relatively  parallel  with  one  another.  It  can  be  seen  that  for  a 
LTHFS  of  500  Wlm2,  the  top  tube  behaves  almost  as  if  it  were  a  single  tube  (i.e.  agrees 
with  a  LTHFS  of  0).  In  this  case,  the  lower  tube  remained  in  the  natural  convection 
regime  for  the  entire  run  and  shows  that  if  this  is  the  case,  little  to  no  enhancement  of 
the  upper  tube  is  obtained  at  any  heat  flux.  The  point  of  incipience  is  different  for  each 
LTHFS  and  proved  to  be  a  fairly  random  event  for  the  smooth  tubes,  occurring  around 
12  kWIrri1.  In  all  cases  except  the  0  and  500  W/m2,  the  lower  tube  was  "seeded"  by 
bubbles  from  the  R-l  14  return  line  (impinging  upon  the  lower  tube)  when  at  a  high  flux 
(>  20/clF/m2)  on  the  upper  tube.  The  lower  tube  then  continued  to  nucleate  after  being 
'seeded'  throughout  the  remainder  of  the  run.  The  LTHFS  of  0,  0.5,  1  and  3  klV/m2 
showed  enhancement  upon  nucleation.  jumping  to  a  common  nucleate  boiling  curve. 
This  entire  run  showed  a  very  definite  hysteresis  effect  and  was  very  similar  to 
Sugiyama's  [Ref.  1]  single  tube  data.  Following  nucleation,  the  four  lower  LTHFS  fol¬ 
lowed  an  identical  nucleate  boiling  curve  for  the  remainder  of  the  increasing  run.  On  the 
decreasing  run,  the  two  lowest  LTHFS  showed  a  gradual  return  to  the  convection  curve 
indicating  a  gradual  deactivation  of  nucleation  sites  as  heat  flux  was  reduced  on  the 
upper  tube.  This  coincided  with  no  nucleation  on  the  lower  tube  and  also  agreed  well 
with  Sugiyama's  [Ref.  1]  single  tube  results.  The  remaining  LTHFS  departed  from  this 
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curve  (on  the  decreasing  run)  and  showed  significant  enhancements  (almost  an  order  of 
magnitude  over  a  single  tube  at  the  lowest  heat  fluxes).  The  enhancement  increased  with 
increasing  the  LTHFS  until  at  LTHFS  above  10  kWjm s,  additional  enhancement  was 
minimal.  The  curves  followed  by  LTHFS  greater  than  1  kWjm2  during  the  decreasing 
run  were  also  parallel  to  the  increasing  run  natural  convection  curves.  This  suggests 
strong  convection  effects  on  the  upper  tube  when  the  lower  tube  is  nucleating  and  heat 
flux  setting  on  the  upper  tube  is  below  10  kW/m2  .  This  agrees  well  with  the  data  of 
Fujita  et  al.  [Ref.  13].  It  should  be  noted  that  all  LTHFS  followed  the  same  curve  above 
an  upper  tube  heat  flux  setting  of  approximately  20  kWIm 2  showing  no  effect  of  LTHFS 
at  high  flux  settings  on  the  upper  tube.  This  too  is  in  agreement  with  Fujita  et  al..  Of 
particular  note  is  that  the  two  highest  LTHFS  follow  the  same  curve  for  both  increasing 
and  decreasing  runs,  indicating  complete  elimination  of  hysteresis  prominent  in  single 
tube  data.  The  above  discussion  indicates  a  significant  effect  of  the  lower  tube  upon  the 
upper  tube  when  the  lower  tube  is  nucleating.  There  are  almost  negligible  enhancements 
when  both  tubes  are  in  the  convection  regime. 

b.  Smooth  Tube  pld  Ratio  of  1.8. 

The  smooth  tube  runs  with  a  p/d  ratio  of  1.8  ,  shown  in  Figure  14,  show 
very  similar  results  to  that  for  a  p/d  of  2.  As  before  for  LTHFS  of  0,  1  and  3  k  W/m2, 
both  tubes  begin  in  the  convection  regime  for  the  increasing  run:  again  no  significant 
enhancement  is  seen  in  this  region,  although  these  curves  are  in  better  agreement  with 
Churchill  and  Chu  [Ref.  2].  For  a  given  LTHFS,  onset  of  nucleate  pool  boiling  (ON'B) 
occurs  at  different  heat  fluxes  than  in  Figure  13,  demonstrating  the  random  nature  of 
this  phenomena.  A  common  nucleate  boiling  curve  is  followed  by  all  LTHFS  runs 
above  an  upper  tube  heat  flux  setting  of  about  20  k  W/rr A  Hysteresis  effects  are  similar 
for  low  LTHFS  as  are  the  elimination  of  hysteresis  for  the  two  highest  LTHFS.  The 
lower  tube  was  seeded  by  bubbles  from  the  R-II4  return  line  at  high  upper  tube  heat 
flux  for  all  LTHFS  (except  0).  When  compared  with  Figure  13,  the  same  enhancement 
factors  are  seen  at  all  but  the  highest  heat  fluxes,  where  the  1.8  p/d  shows  a  slight  en¬ 
hancement  over  the  2  p/d.  This  will  be  shown  more  clearly  on  a  later  graph. 

c.  Smooth  Tube  pjd  of  1.5 

The  same  trends  and  enhancements  seen  in  the  previous  two  p/d  ratios  are 
also  seen  in  Figure  15.  LTHFS  of  0,  I  and  3  are  very  similar  to  the  previous  two  p  d 
ratios  with  no  appreciable  enhancement  in  the  convection  region.  The  lower  tube 
started  in  the  convection  region  for  LTHFS  ofO,  1  and  3,  and  was  nucleating  throughout 
for  LTHFS  of  10  and  25  klVjin2  The  lower  tube  nucleated  via  seeding'  at  high  lluxcs 
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Figure  13.  Comparison  of  Lower  Tube  Flax  Settings  for  a  p/d  Ratio  of  2  for  Smooth 
Tube 
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Figure  14.  Comparison  of  Lower  Tube  Flux  Settings  for  a  p/d  Ratio  of  1.3  for 
Smooth  Tube 
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on  the  upper  tube  as  for  the  previous  two  p/d  ratios.  ONB  for  the  upper  tube  continued 
to  be  a  statistical  phenomenon.  Similar  hysteresis  patterns  are  also  seen.  At  the  highest 
heat  flux  settings,  the  1.5  p/d  shows  a  degradation  compared  to  both  the  1.8  and  2.0  p/d. 
This  will  again  be  shown  more  clearly  on  a  later  graph. 
d.  High  Flux  Tube  p/d  of  2 

A  plot  of  data  runs  made  for  the  High  Flux  tube  with  a  p/d  ratio  of  2  is 
shown  in  Figure  16.  The  convection  region  looks  very  similar  to  that  of  the  smooth 
tubes  in  that  they  agree  fairly  well  with  Churchill  and  Chu  [Ref.  2].  Also,  there  is  no 
appreciable  enhancement  in  the  convection  region  for  increases  in  LTHFS  from  0  to  3 
kW/m A  For  LTHFS  of  0,  1  and  3,  the  lower  tube  remained  in  the  convection  regime 
until  nucleation  cf  the  top  tube,  as  with  the  smooth  tube  cases.  However  for  all  the 
High  Flux  tube  runs,  with  the  exception  of  the  0  LTHFS,  the  lower  tube  nucleated  at 
the  same  time  as  the  upper  tube  when  both  tubes  started  in  the  convection  regime.  This 
appeared  to  be  due  to  the  explosive  nature  of  nucleation  with  these  enhanced  surfaces 
which  caused  vapor  to  impinge  upon  the  lower  tube  thereby  causing  immediate 
nucleation  on  the  lower  tube  as  well;  there  are  probably  significant  shock  waves  set  up 
within  the  pool  that  add  to  this  nucleation  of  the  lower  tube  as  well.  Once  the  upper 
tube  nucleated,  the  three  LTHFS  curves  jumped  to  a  common  nucleate  boiling  curve, 
and  demonstrated  a  significant  temperature  overshoot,  similar  to  that  found  by 
Sugiyama  [Ref.  1]  for  a  single  High  Flux  Tube.  These  LTHFS  runs  followed  the  same 
nucleate  boiling  curve  for  the  remainder  of  the  increasing  run  and  for  the  entire  de¬ 
creasing  run;  the  form  of  the  hysteresis  loop  agreed  very  well  with  Sugivama's  single  tube 
work  [Ref.  1]. 

The  lower  tube  nucleated  from  the  beginning  of  the  increasing  run  for  a 
LTHFS  of  10  and  25  kWjm A  Unlike  the  smooth  tubes,  the  hysteresis  loop  is  not  com¬ 
pletely  eliminated  for  these  two  LTHFS.  These  curves  demonstrate  that  the  upper  tube 
experiences  several  effects  during  the  increasing  run.  The  segment  of  the  curve  between 
500  and  1000  Wjrri1  is  parallel  to  the  natural  convection  curves  but  well  to  the  left  (i.e. 
well  enhanced),  indicating  strong  convection  effects  due  to  the  bubble  plume  from  the 
lower  tube  sliding  over  the  upper  tube.  This  segment  of  the  curve  agrees  very  closely  with 
that  for  the  smooth  tube  in  the  convection  region  for  the  same  pitch  and  the  same 
LTHFS.  This  indicates  that  the  bubbles  sweeping  over  the  upper  non-nucleating  High 
Flux  tube  have  the  same  enhancement  effect  as  on  an  upper  non-nucleating  smooth 
tube,  i.e.  it  makes  no  difference  which  tube  surface  is  used  because  the  majority  of  'he 
heat  transfer  is  associated  with  the  bubble  plume  sweeping  over  the  upper  tube  from  the 
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Figure  15.  Comparison  of  Lower  Tube  Flux  Settings  for  a  p/d  Ratio  of  1.5  for 
Smooth  Tube 
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nucleating  tube  below.  This  supports  Cornwell's  bubble  sweeping  hypothesis  at  low 
heat  fluxes  [Ref.  17].  For  upper  tube  heat  fluxes  above  1000  Wlm2,  the  curves  for  both 
the  10  and  25  kW/m 3  LTHFS  show  almost  vertical  slopes,  indicating  partial  nucleation 
and  mixed  convection,  eventually;  at  high  enough  heat  flux  as  they  join  the  same  com¬ 
mon  nucleate  boiling  curve  as  before  with  LTHFS  of  0,  1  and  3  klVjm2  All  decreasing 
runs  for  ail  LTHFS  followed  the  same  curve,  and  agreed  closely  with  both  the  0  LTHFS 
and  with  single  tube  data  (Sugiyama  [Ref.  1  ])  for  decreasing  heat  flux.  There  is  some 
difference  between  the  curves  on  the  decreasing  run  at  low  fluxes;  however  these  differ¬ 
ences  are  within  the  experimental  uncertainty  which  is  largest  in  this  region.  The  above 
suggests  that  there  is  no  enhancement 

of  the  upper  tube  heat  transfer  coefficient  gained  by  heating  the  lower  tube  at  a  p/d  of 

2. 

e.  High  Flux  Tube  pjd  Ratio  of  1.8 

Figure  17  for  a  p/d  of  1.8  is  almost  identical  to  that  for  a  pitch  of  2.  The 
same  effects  (as  discussed  for  Figure  16  above)  apply  equally  to  Figure  17.  Convection 
and  nucleate  region  curves  fall  on  top  of  each  other  with  the  upper  tube  nucleating  at 
almost  the  same  heat  fluxes.  The  first  segment  between  500  and  1000  lV/m2  for  LTHFS 
of  10  and  25  kWlrri2  agrees  very  closely  with  the  nucleate  boiling  region  for  the  smooth 
tube  for  the  same  pitch.  The  reasons  for  this  are  also  discussed  above,  and  demonstrate 
the  repeatability  of  this  effect.  The  excellent  agreement  between  the  plots  in  Figure  17 
and  Figure  16  suggests  that  there  is  no  effect  of  tube  spacing  at  any  heat  flux.  This  will 
become  clearer  in  later  figures. 

f  High  Flux  Tube  pjd  Ratio  of  1.5 

Figure  18  shows  the  plot  for  a  pitch  of  1.5  to  be  almost  identical  to  the 
plots  for  pitches  of  1.8  and  2.  The  differences  in  the  plot  are  in  the  same  areas  as  in  the 
previous  pitch.  The  upper  tube  nucleates  at  different  fluxes  than  in  the  previous  two 
pitches,  again  demonstrating  the  somewhat  random  nature  of  ONB.  In  all  other  respects 
the  plot  is  identical  to  the  previous  two,  further  reinforcing  that  there  is  nothing  to  be 
gained  from  an  upper  enhanced  tube  by  the  presence  of  a  nucleating  lower  enhanced 
tube  except  if  the  upper  tube  is  in  the  natural  convection  region. 

2.  The  Effect  of  Tube  Spacing 
a.  Lower  Tube  Unheated 

To  show  the  effect  of  tube  spacing,  plots  have  been  made  for  all  three 
pitch-to-diameter  ratios  at  each  LTHFS  used.  For  the  base  of  an  unheated  lower  tube, 
the  data  are  shown  in  Figure  19  for  both  the  smooth  and  High  Flux  tubes  for  all  three 
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Figure  16.  Comparison  of  Lower  Tube  Flux  Settings  for  a  p/d  Ratio  of  2  for  High 
Flax  Tube 
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Figure  17.  Comparison  of  Lower  Tube  Flux  Settings  for  a  p/d  Ratio  of  1. 8  for  High 
Flux  Tube 
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Figure  18.  Comparison  of  Lower  Tube  Flux  Settings  for  a  p/d  Ratio  of  1.5  for  High 
Flux  Tube 


values  of  p/d  tested.  This  plot  clearly  shows  the  hysteresis  loop  for  the  smooth  tubes 
(discussed  earlier)  and  the  earlier  incipient  point  associated  with  the  High  Flux  tubes. 
It  should  be  noted  that  on  a  log/log  plot,  the  temperature  overshoot  for  the  High  Flux 
tubes  looks  much  larger  than  that  for  the  smooth  tubes.  In  fact  it  is  the  other  way 
around,  with  a  smooth  tube  temperature  overshoot  of  around  25  K  and  a  High  Flux 
value  around  15  K.  In  the  natural  convection  region,  all  the  data  fall  very  closely  to¬ 
gether.  Following  nucleation  of  the  upper  tube,  the  three  curves  for  each  tube  jump  to 
that  tube's  respective  nucleate  boiling  curve  for  the  remainder  of  the  run;  these  curves 
agree  well  with  Sugiyama's  (Ref.  1]  single  tube  data  for  both  smooth  and  High  Flux 
tubes.  As  expected  for  an  unheated  tube,  there  is  no  effect  of  tube  spacing  for  High 
Flux  tubes  for  any  heat  flux.  However  for  the  smooth  tubes  at  high  heat  fluxes,  there 
does  appear  to  be  a  definite  effect  of  tube  spacing,  with  a  p/d  of  1.8  giving  the  best  heat 
transfer  performance.  With  the  bottom  tube  unheated,  it  is  unclear  as  to  why  this 
should  be  the  case  (except  that  its  presence  obviously  effects  the  circulation  patterns  in 
the  evaporator),  but  as  will  be  seen,  this  trend  is  consistent  even  when  the  lower  tube  is 
heated. 

b.  Lower  Tube  Heat  Flux  Setting  of  l  kW/m1 

Results  for  both  tube  surfaces  at  three  values  of  p/d  for  a  1  kWjrr?  LTHFS 
are  shown  in  Figure  20.  In  the  natural  convection  region,  it  appears  that  both  High 
Flux  and  smooth  tubes  show  a  small  increasing  enhancement  with  increasing  tube 
spacing.  This  agrees  with  Sparrow  and  Niethammers  [Ref.  11]  and  Marsters  [Ref.  12] 
work  with  air.  It  should  be  noted  that  for  this  LTHFS,  both  upper  and  lower  tube  were 
in  the  convection  region  at  the  start  of  the  increasing  run.  Figure  20  also  shows  the 
lower  nucleation  heat  fluxes  associated  with  ONB  for  High  Flux  tubes.  Once  the  upper 
tubes  nucleate,  all  curves  'jump'  to  a  nucleate  boiling  curve.  The  High  Flux  tubes  follow 
the  same  nucleate  boiling  curve  regardless  of  spacing  for  the  remainder  of  the  run.  This 
suggests  that  for  a  High  Flux  tube  which  is  nucleating,  there  is  no  effect  of  heating  from 
a  lower  tube  with  a  LTHFS  of  1  kWjm 2  or  less  for  any  p/d  ratio.  The  smooth  tubes  on 
the  other  hand,  do  show  small  enhancements  throughout  the  nucleate  region  for  the 
three  values  of  p/d.  These  are  similar  to  the  data  shown  in  Figure  19  when  the  bottom 
tube  was  present  but  not  heated,  and  suggests  that  these  effects  are  directly  related  to 
the  tube  spacing  itself  and  not  due  to  the  fact  that  the  lower  tube  is  heated.  In 
Figure  20,  there  does  seem  to  be  some  effect  of  p/d  at  these  lower  heat  fluxes  on  the 
boiling  curve;  furthermore,  this  appears  to  be  opposite  to  the  trend  found  at  high  heat 
fluxes,  i.e.  a  p/d  of  1.5  gives  the  best  heat  transfer.  However,  this  is  thought  to  be  ex- 
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perimental  scatter  as  it  does  not  occur  on  later  graphs,  whereas  the  effect  at  high  ueat 
fluxes  is  very  repeatable. 

c.  Lower  Tube  Heat  Flux  Setting  of  3  k  Wjm2 

The  plot  shown  in  Figure  21  for  a  LTHFS  of  3  kW/m2  is  very  similar  to  that 
for  1  kW!m 2.  The  same  enhancement  trends  are  seen  in  the  convection  region  in  that 
both  tubes  show  increasing  enhancement  with  increasing  pitch,  with  the  exception  of  the 
smooth  tube  with  a  p/d  of  1.8.  This  is  believed  to  be  due  to  scatter  because  the  per¬ 
formance  shown  for  both  tubes  for  the  other  LTHFS 

in  the  natural  convection  regime  tend  to  follow  an  increasing  enhancement  with  pitch 
trend.  It  should  be  noted  for  this  LTHFS  that  both  lower  and  upper  tube  were  in  the 
convection  region  at  the  beginning  of  the  increasing  run.  Once  the  upper  tube  had 
nucleated,  then  the  lower  tube  also  started  to  nucleate  from  the  'seeding'  process  men¬ 
tioned  earlier.  Following  nucleation,  the  High  Flux  runs  show  the  same  results  as  in  the 
previous  LTHFS.  The  smooth  tube  still  shows  small  enhancements  at  high  heat  fluxes 
as  in  the  previous  LTHFS,  with  a  pitch  of  1.8  giving  the  best  enhancement.  However 
in  the  boiling  region  below  10/clF/m2,  no  enhancements  are  discemable  due  to  p/d  (as 
mentioned  earlier)  and  the  curves  fall  directly  on  top  of  one  another. 

d.  Lower  Tube  Heat  Flux  Setting  of  10  kWfm2 

It  should  be  noted  that  for  this  LTHFS,  the  lower  tube  nucleated  at  the 
beginning  of  the  run  and  remained  that  way  throughout  the  run.  The  plot  for  a  LTHFS 
of  10  klVIrri*  is  shown  in  Figure  22  and  clearly  shows  the  elimination  of  hysteresis  for 
the  smooth  tube.  Thus  the  effect  of  the  bubbles  from  the  lower  tube  sweeping  over  the 
upper  tube  (even  when  the  upper  tube  is  in  the  convection  region)  is  enough  to  'simulate' 
full  nucleation  from  the  upper  tube,  again  supporting  Cornwell's  hypothesis  that  at  low 
heat  fluxes,  the  majority  of  the  heat  transfer  from  upper  tubes  in  a  bundle  is  due  to 
convection  effects  from  below.  Figure  22  also  clearly  shows  that  there  is  no  effect  of 
spacing  for  smooth  tubes  except  at  high  heat  fluxes,  as  before  (above  20  klV/m2).  For 
the  High  Flux  tube  it  is  clear  that  there  is  no  effect  of  spacing  in  the  decreasing  portion 
of  the  curve  as  before.  It  is  unclear  what  influence  spacing  may  have  on  the  increasing 
curve  as  any  effects  appear  quite  random.  This  suggests  that  the  effect  of  spacing  in  this 
region  is  very  small  if  not  negligible.  As  mentioned  earlier,  the  segment  of  the  increasing 
High  Flux  curve  between  500  and  1000  IV/m2  is  parallel  and  very  close  to  the  same  seg¬ 
ment  for  the  smooth  tube  curve.  Note  that  for  the  smooth  tube,  the  curve  is  the  same 
for  increasing  and  decreasing  heat  flux,  suggesting  that  the  top  tube  is  not  nucleating 
at  these  low  heat  fluxes  and  that  the  enhancement  seen  is  due  entirely  to  the  sweeping 


48 


200  1000 


THETAB  (DEGREES  C) 


Figure  20.  Comparison  of  Pitches  for  a  Lower  Tube  Heat  Flux  Setting  of  1  klVjm 1 
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Figure  21.  Comparison  of  Pitches  for  a  Lower  Tube  Heat  Flux  Setting  of  3  kWjrn1 
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bubbles  from  below.  This  implies  that  both  tubes  experience  very  similar  convective 
effects  when  influenced  by  a  vigorously  boiling  tube  below.  This  was  discussed  in  more 
detail  earlier. 

e.  Lower  Tube  Heat  Flux  Setting  of  25  kWjm1 

Figure  23  shows  results  for  a  LTHFS  of  25  kWIm?  and  is  very  similar  to 
that  for  10  kWlrri1.  It  should  be  noted  that  the  lower  tube  in  each  case  was  nucleating 
from  the  beginning  of  the  run.  The  only  region  where  spacing  has  any  effect  is  in  the 
high  heat  flux  boiling  region  (above  20  kW/rn1)  for  the  smooth  tube.  As  in  the  previous 
case,  any  effects  of  tube  spacing  on  the  High  Flux  tube  can  be  considered  negligible. 
Again,  of  particular  interest  is  the  segment  of  the  increasing  curves  between  500  and 
1000  Wjm*.  Here  the  curves  for  the  smooth  and  High  Flux  tube  fall  on  top  of  one  an¬ 
other,  further  implyimg  that  at  low  heat  fluxes  (with  the  lower  tube  nucleating  vigor¬ 
ously)  the  convection  effects  on  the  two  types  of  surface  are  the  same.  Of  note  is  the 
excellent  repeatability  of  the  data. 

3.  Both  Tubes  Subject  To  the  Same  Heat  Flux 

In  addition  to  the  data  already  presented,  two  additional  runs  were  conducted, 
(one  for  each  type  of  tube)  in  which  the  upper  and  lower  tube  were  run  up  and  down 
together  at  the  same  heat  flux  setting;  these  tests  were  both  conducted  with  a  p/d  of  2. 
It  should  be  noted  that  the  upper  and  lower  tubes  were  in  the  convection  region  at  the 
beginning  of  the  runs.  The  results  of  these  two  tests  (for  the  upper  tube  only)  are  shown 
in  Figure  24.  The  High  Flux  tube  data  fall  on  top  of  previous  data,  showing  no  effect 
of  the  lower  tube  throughout  the  entire  heat  flux  range.  This  was  expected  due  to  the 
'repeatability'  of  the  High  Flux  tube  shown  in  Figure  19  through  Figure  23.  The 
smooth  tube  shows  a  much  earlier  incipient  heat  flux  for  the  upper  tube.  However,  there 
is  a  large  step  in  heat  flux  at  this  point  due  to  the  upper  tube  suddenly  nucleating  at  a 
lower  than  expected  heat  flux  (the  cause  of  this  nucleation  is  unknown  and  may  be  just 
a  function  of  the  randomness  of  this  phenomenon  mentioned  earlier;  Apart  from  its 
early  ONB,  the  smooth  tube  follows  a  very  similar  boiling  curve  to  that  shown  previ¬ 
ously  for  a  p/d  of  2.  At  the  lowest  values  of  heat  flux,  the  hysteresis  loop'  is  still  slightly 
open;  this  is  because  the  lower  tube  still  has  a  small  number  of  active  nucleation  sites 
which  are  slightly  enhancing  the  top  tube.  At  1  &capflux.,  the  difference  between  the 
increasing  and  decreasing  values  of  AT  is  similar  to  that  found  on  Figure  20  for  a 
LTHFS  of  1  kiV/m1.  This  also  true  for  the  other  LTHFS,  i.e.the  curve  on  Figure  24 
coincides  at  one  point  with  the  boiling  curves  in  Figure  19  through  Figure  23  at  the 
respective  LTHFS.  Of  particular  interest  is  that  the  foregoing  results  agree  with  and 
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Figure  22.  Comparison  of  Pitches  for  a  Lower  Tube  Heat  Flux  Setting  of  10  kll'lm1 
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Figure  23.  Comparison  of  Pitches  for  a  Lower  Tube  Heat  Flux  Setting  of  25  k  IF/m1 
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complement  certain  results  found  from  the  bundle  apparatus  in  the  Heat  Transfer  labo¬ 
ratory.  Not  too  many  conclusions  can  be  drawn  from  Figure  24  due  to  the  lack  of  data 
taken  at  other  spacings.  This  is  one  area  which  should  be  further  investigated  in  the 
future. 
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Figure  24.  Comparison  of  Upper  and  Lower  Tube  Run  Together 
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VI.  CONCLUSIONS 


1.  There  is  no  effect  of  tube  spacing  on  High  Flux  tube  performance  at  any  heat  flux. 

2.  The  effect  of  tube  spacing  on  smooth  tube  performance  is  present  (but  small)  in  the 
convection  region.  At  high  fluxes  (>  20  k  IV/m1),  there  is  a  systematic  dependence  on 
tube  spacing  with  a  p/d  ratio  of  1.8  giving  the  best  heat  transfer  performance. 

3.  A  nucleating  lower  High  Flux  tube  significantly  enhances  an  upper  High  Flux  tube  in 
the  convection  region  due  to  bubble  sweeping.  There  is  no  effect  of  a  heated  lower  tube 
on  a  nucleating  upper  High  Flux  tube. 

4.  A  vigorously  nucleating  lower  smooth  tube  (>  10  kW/m?)  eliminates  all  hysteresis  ef¬ 
fects  on  an  upper  tube.  A  partially  nucleating  lower  smooth  tube  (<;  3  kW/m?)  signif¬ 
icantly  enhances  (by  an  order  of  magnitude)  an  upper  smooth  tube. 

5.  For  low  upper  tube  heat  flux  settings  (<  1000  W/rri1)  and  vigorous  nucleation  on  the 
lower  tube,  High  Flux  and  smooth  tubes  exhibited  similar  performance  demonstrating 
that  the  majority  of  the  heat  transfer  is  due  to  bubble  sweeping  from  below. 
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VII.  RECOMMENDATIONS 


1.  Continue  present  work  with  other  spacings  and  'bundle'  configurations. 

2.  Adapt  the  current  apparatus  to  provide  a  larger  evaporator  to  accommodate  more 
than  two  tubes.  This  would  probably  also  provide  better  conditions  for  videotaping  the 
phenomena  within  the  evaporator. 

3.  Resume  experiments  operating  both  tubes  at  the  same  heat  fluxes  for  other  spacings. 

4.  Pursue  modeling  of  the  enhancement  effect,  taking  into  account  the  mixed  effects  of 
convection  (from  a  lower  tube).  Studies  of  a  smooth  tube  placed  above  an  enhanced 
tube  might  shed  light  on  this. 

5.  Measurement  of  temperature  in  the  plume  from  the  lower  tube  to  study  the  effect  of 
spacing  in  both  the  natural  convection  and  boiling  region. 

6.  Acquisition  of  a  Hewlett-Packard  to  IBM  converter  would  greatly  increase  the  ability 
to  produce  results  from  processed  data  within  a  short  time  frame. 
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APPENDIX  A.  SAMPLE  CALCULATIONS 

Data  set  DAT0529I52  was  chosen  for  sample  calculations.  The  saturation  temper¬ 
ature  was  2.25  °C,  the  heat  flux  on  the  upper  tube  was  35590  W/m*. 

A.  TEST-TUBE  DIMENSIONS 

Do  =  0.01582  m 

Di  ™  0.0132  m 

Z>1  =*  0.013  m 

I- 0.190  m 
Lu  =  0.076  m 

B.  MEASURED  PARAMETERS 

V  =  147.55  K 

/  =”  2.44  A 

71  »  5.88  °C 

72  =  4.90  °c 

73  =  5.38  °C 

74  nor  defective 

T5  =  5.77  °C 

76  =  7.06  °C 
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77  =  5.66  °C 


TS  =  5.48  °C 

Tsat  —  2.25  °C 
/cc  =  45  f-K/m  •  ^ 

C.  OUTER  WALL  TEMPERATURE  OF  THE  TEST  TUBE 

p  —  n*Do  —  n»  0.01582  =  0.0497  m 

Ac  -  it(Do 2  -  Z)/2)/4  -  jt{(0.01582)2  -  (0.0132)2}/4 

y4c  »  5.97  x  10"5  m2 

Qh=VI  =  145.55  •  2.44  =  360.02  W 

Tavg  =*  LTW/m  =*  5.73  °C 

where  m  =  the  number  of  operational  thermocouples  used 
Two  —  Tavg  —  Qh*  { ln(Do/Z)l)/(2  •  L  •  /cc)} 

Two  *  5.73  -  360.02{  ln(  ~||||-  )/(2 .  *  .  0.2032 . 45)} 

Two  =  4.48  °C 

Two  -  Tsat  =  4.48  -  2.25  =  2.23  °C 
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D.  PROPERTIES  OF  R-114  AT  FILM  TEMPERATURE 

7/=  ( Two  +  Tsat)l2  =  (4.4S  +  2.25)12  -  3.36  °C 

fx  m  exp[  -4.4636  +  (101 1.47/77)]  .  10-3 

H  -  exp[  -4.4636  +  (1011.47/(3.36  +  273.15))]  .  10~3  -  3.76  x  10"4  AT .  5/m2 
7c  =  Critical  Tempera ture(°7?)  =  753.95  °R 
TJ[°R)  =>  498.05  °R 

j  -  l  -  TJ[R)ITc(R)  »  1  -  498.05/753.95  -  0.34 
p  =  581.77  +  984.15y1/3  +  263.02;  +  219.99J112  +  17.94/ 
p  =  1522.7  kglm 3 

v  -  p/p  -  3.7605  x  1 O'"4/ 1522.72  *  2.47  x  10"7  m2/5 
A  -  7.1  x  10~2  -  (2.61  x  10^ .  77(°C)} 

A  -  7.1  x  10~2  -  (2.61  x  l  O'4 . 3.36)  =  7.01  x  10-2  W/m  .  K 
Cp  »  400  +  1.65 . 77+  (1.51  x  10~3 . 7/)  -  (6.68  x  10~7  .  Tf) 

Cp  =  959MJIkg.  K 
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m  =  45.28 

Qf=  ( h.p.kc . ^c),/2 . 0 . tanh(m  .  Lu)  =  0.27  W 

F.  HEAT  FLUX  THROUGH  ACTIVE  BOILING  SURFACE 
Q  =  Qh-2'  Qf  —  360.02  -  2(0.27)  «  359.47  W 

Ab~  n*Do»L  =  71.0.01582.0.2032=  1.01  x  10 ~2  m2 
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q  -  QlAb  -  359.47/1.01  x  10~2  *  35595  IF/m2 
h  -  q'/e  -  35595/2.23  =  15955  W^/m2  . 

The  following  results  were  produced  by  the  data  acquisition  and  reduction  program 
DRP72: 

q  -  35590  W/m2 
h  -  15969  W\m2 .  K 
0-2.23  °C 

The  calculations  were  exactly  the  same  for  both  tubes. 
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APPENDIX  B.  UNCERTAINTY  ANALYSIS 


For  comparison  purposes,  uncertainty  was  determined  using  the  same  methods 
(those  of  Kline  and  McClintock  [Ref.  181)  as  Sugiyama  in  single  tube  work  [Ref.l  Ap¬ 
pendix  E].  Four  data  points  (two  for  the  smooth  tube  and  two  for  the  High  Flux  tube) 
were  selected  for  the  uncertainty  analysis.  These  points  were  selected  such  that  uncer¬ 
tainty  could  be  determined  in  the  high  and  low  heat  flux  regions  for  each  tube.  The 
points  selected  were  data  sets  19  and  35  from  run  DAT0529D52  and  data  sets  1  and  13 
from  run  DAT0425D42.  The  following  is  a  sample  calculation  of  uncertainty  for  data 
set  19  of  run  DAT0529D52  (i.e.  low  heat  flux  setting  on  the  High  Flux  tube).  Measured 
and  calculated  parameters  were  obtained  as  in  Appendix  A,  sample  calculations.  All 
uncertainties  are  expressed  as  a  percentage  of  the  calculated  parameter.  Results  are  shown 
in  Table  5 

A.  UNCERTAINTY  IN  INPUT  POWER. 

Qh  =  VI 


Is  =  0.37  V  61  =  ±  0.025  A 

where  <5  =  uncertainty  in  measurement  and  calculation 
Vs  =  1.75  V  5V=m±  0.05  V 

I  -  L92.Zi-0.7U 
V  =25  •  Vs-  43.78  V 

SQhlQh  =  ((<5  VI  Vs?  +  (dills??12 
SQhlQh  =  ((0.05/I.75)2  +  (0.025/0.37)2)1'2 
dQh/Qh  =  7.33 
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B.  UNCERTAINTY  IN  SURFACE  AREA 


Ab  =  it  •  Do  *  L 

Do  =■  15.82mm  5  Do  = 

L  -  203.20mm  - 


0.1mm 


0.1mm 


-  {{5  Do  I  Do)2  +  (<5L/L)2)t/2 


SAblAb  -  ((0.1/15.82)2  +  (0.1/203.2)2)1'2 
SAb/Ab  -  0.63 

C.  UNCERTAINTY  IN  WALL  SUPERHEAT 
AT  »  Two  —  7m/ 

Tsat  =  2.2TC  STsat  =  0.01°C 

Two  =  7avg  —  <2^[(  ln(Z)o/Z)l))/(2  Ac)3 

7/»  *  thermocouple  readings 

H*2.76°C  72  =  2.61°C 

73  =  2.67° C  74( defective  thermocouple) 

7"5  =»  2.74°C  76  =  2.81°C 

77  =  2.76°C  73  =  2.74°C 

Tavg  =  (! LTnll ) 
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where  n  =  1  to  3,  5  to  8 


Tavg  =  2.73°  C 

S.D.  -  ((E(7n  -  Tavg)2)! rt)1 12  =  0.061°C 
where  S.D.  *  standard  deviation 

Compared  to  Tavg,  the  logarithmic  term  in  the  equation  for  Two  is  small  and  is 
neglected  for  the  uncertainty  analysis. 

Two  =  Tavg  =  2.73 °C  STwo  -  S.D.  =  0.061°C 


AT  =  0.37°C 

SAT!  AT  » ({STwo/AT)2  +  (STsatlAT)2)1'2 
SAT!  AT  —  ((0.061/0.368)2  +  (0.01/0.368)2)1'2 
5  AT/ AT  =  16.8 

D.  UNCERTAINTY  IN  HEAT  FLUX 
q  -{Qh-2*Qf)IAb 

Qh  =  3l.0W  6Qh  =  2.2tlV 

Assuming  the  same  proportion  in  the  uncertainty  for  Qf  (losses  from  the  unheated  ends): 
£/"=  1.6IK  (52/"=  0.12IK 

Qh-2*Qf=  27.9  IK 

<5 qlq  =  {( SQhKQh  -  2 . £/))2  +  (2  •  <2/7«2*  -  2 . £/))2  +  (SAb/Ab)2}'12 


65 


bqlq  -  {(2.28/27.8S)2  +  (2 . 0.12/27.88)2  +  (0.0063)2}1'2 
<5  qlq  =  8.21 

E.  UNCERTAINTY  IN  BOILING  HEAT  TRANSFER  COEFFICIENT 
h  -  q'/AT 


Sh/h  *  {( bqlq) 2  +  (bAT/AT)2}'12 


bh/h  =*  {(0.0821)2  +  (0.168)2}'^2 


=»  18.7 


Table  5.  UNCERTAINTY  ANALYSIS  FOR  FOUR  POINTS 


Parameters 

Smooth  tube 

2685  W/m1 

Smooth  tube 
38440  JVfm* 

High  Flux  tube 
3070  Win? 

High  Flux  tube 
35590  IF/m2 

<5  QhlQh  (%) 

7.01 

1.98 

7.33 

2.14 

bAblAb  (%) 

0.63 

0.63 

0.63 

0.63 

bATIAT(%) 

1.91 

2.52 

16.8 

8.08 

Sq  lq  (%) 

7.79 

2.18 

8.21 

2.23 

bhlh  (%) 

8.02 

3.33 

18.7 

9.40 

Uncertainties  listed  in  Table  5  show  that  the  main  source  of  uncertainty  is  in  the 
measurement  and  calculation  of  AT.  The  uncertainty  in  AT  is  probably  due  to  inaccu¬ 
racies  introduced  during  the  manufacturing  process.  For  instance,  the  solder  pools  at¬ 
taching  thermocouple  wires  to  the  interior  sleeve  may  have  impurities  (e.g.  small  air 
gaps)  which  in  close  proximity  to  the  thermocouple  junction  could  affect  the  local  heat 
resistance  and  thereby  the  temperature.  Eight  thermocouples  were  used  to  obtain  the 
wall  average  and  reduce  this  uncertainty.  This  also  points  out  that  further  improvements 
in  accuracy  must  be  made  in  this  area  first.  Graphical  displays  of  uncertainty  are  shown 
in  Figure  10  and  Figure  11. 
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APPENDIX  C. 


REPRESENTATIVE  DATA  SET 
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Oats  : 


S  Apr  1992 


NOTE:  Program  name  :  0RP72 
Disk  number  •  30 
New  file  name:  OAT0406I42 
TC  la  defective  at  location  5 
No  defective  AUX  TCs  exist 
Tube  Number:  4 

□ate  Set  Number  -  I  Sulk  OH  X  -  0.0 

TINE:  15:09:03 

TC  No:  I  2  3  4  S  S  7  3 

Temo  :  2. SI  2.S2  2.S4  2.62  -99.99  2. SI  2.S2  2.SS 

TC  No:  9  10  II  12  13  14  IS  16 

Temo  :  IS. 87  27.84  22.11  2S.SI  10.17  27.90  18. SI  23.24 

Twa  ATwa  Tliqd  Tliqd2  Tvaor  Paal  Taump 

2.S2  21. S9  2.29  2.21  2.28  -1.70  -IS.S 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

.356  I.7ISE+03  6.II2E+02  19.325  5.093E+02  9.842E+03 


Oata  Set 

Number 

m 

Sulk  Oil  X  -  0.0 

TIME: 

16:10 

:S1 

TC  No: 

1 

2 

3  4  5 

6  7 

8 

Temp  : 

2.71 

2.72 

2.73  2.70  -99.99 

2.68  2.68 

2.73 

TC  No: 

9 

10 

II  12  13 

14  15 

16 

Temp  : 

16.87 

27.86 

22.10  26.60  10. IS 

27.89  18.46 

23.21 

Twa 

ATwa 

Tliqd 

Tllqd2  Tvapr  Psat 

Taump 

2.70 

21.58 

2.31 

2.24  2.26  -1 .69 

-16.5 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

.437  I .3846+03  S.048E+02  19.309  S.074E+02  9.798E+03 

Data  Set  Number  »  3  Bulk  011  X  »  0.0 

TINE:  16:15:44 

TC  No:  I  2  3  4  5  6  7  8 

Temp  :  3.42  3.50  3.49  3.47  -99.99  3.40  3.40  3.52 

TC  No:  9  10  II  12  13  14  15  IS 

Tamo  :  IS. 86  27.86  22.07  26.63  10.08  27.94  18.50  23.25 

Twa  ATua  Tliqd  TUqd2  Tvapr  Psat  Tsumo 

3.45  21. S8  2.28  2.21  2.24  -1.72  -16.4 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

1.206  I.307E+03  I. 5776+03  19.342  5.I00E+02  9.864E+03 

Oata  Set  Number  «  4  Bulk  Oil  X  *  0.0 

TIME:  16:16:21 

TC  No:  I  2  3  4  S  6  7  g 

Temp  :  3.43  3.52  3.51  3.48  -99.99  3.40  3.40  3.54 

TC  No :  9  10  II  12  13  14  15  is 

Temp  :  IS. 97  27.85  22.07  2S.S2  10.12  27.93  18.51  23.24 

Twa  ATwa  Tliqd  Tliqd2  Tvapr  Psat  Taump 

3. 46  21.59  2.31  2.22  2.27  -1.69  -15.4 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

1.139  I . 324E+03  1.5746+03  19.314  S.I06E+02  9.862E+03 

Oata  Set  Number  -  5  Bulk  Oil  -  *  0.0 

TINE:  16=22:00 

TC  No:  1  2  3  4  S  6  7  8 

Temp  :  4,47  4.56  4,su  4.50  -99.99  4.45  4.44  4.65 

TC  No:  9  10  l|  12  1 3  14  IS  16 
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Temp  :  IS. 9:  27.79  21.99  2S . SS  10.38  27.86  18.44.  23.18 

Twa  ATwa  Tliqd  Tltqd2  Tvapr  Psat  Tsurtp 

4.S4  21. S2  2. 25  2.18  2.23  -1.74  -16.3 

Thetab  Htube  Odp  Athetab  Ahtube  AuQdp 

2.321  I . 2706+03  2.948E+33  19.301  S.t06E+02  9.8SSE+03 


Qata  Set  Number 

•  6 

Bulk  Oil  5  -  0.0 

TIME: 

16:22 

:  4 1 

TC  No 

1 

s 

3  4  5 

6 

7 

a 

Temp 

4.51 

4.65 

4.62  4.57  -99.99 

4.45 

4.44 

4.64 

TC  No 

9 

10 

II  12  13 

14 

IS 

16 

Temp 

16.31 

27.78 

21.98  26.55  10.06 

27.86 

18.45 

23.17 

Twa 

ATwa 

Tliqd 

Tllqd2  Tvapr  Peat 

T  sump 

4.S4  2i. s: 

2.29 

2.19  2.23  -1.73 

-16. 

2 

Thetab  Htube 

Qdp  Athetab  Ahtube 

AuQdp 

2.305  1 . 279E+03  2. 

,  948E+03  19.283  S.HSE+02 

9. 865E+03 

Oata  Set  Number 

-  7 

Sulk  Qtl  X  -  0.0 

TIME: 

16:27 

:34 

TC  No 

1 

2 

3  4  5 

6 

7 

8 

Temp 

6.  S3 

6.95 

6.89  6.82  -99.99 

6.48 

6.48 

6.90 

TC  No 

9 

10 

II  12  13 

14 

IS 

16 

Temp 

16.79 

27.80 

21.97  25.57  10.00 

27.88 

18.43 

23.19 

Twa 

ATwa 

Tliqd 

Tliqd2  Tvapr  Psat 

Tsump 

6.70  21. SI 

2.27 

2.19  2.20  -1.75 

-16. 

,2 

Thetab  Htuba  Qdo  Athetab  Ahtube  AuQdp 


4.484 

1. 269E+03  5 

.6896403  *9.296  5.113E+02 

9. 867E+03 

Oata  Set 

Number 

-  8 

Bulk  Oil  X  -  0.0 

TINE: 

16:28 

:  36 

TC  No: 

1 

2 

3  4  5 

6 

7 

8 

Tamp  : 

6.58 

6.95 

6.89  6.81  -99.99 

6.55 

6.55 

6.95 

TC  No: 

9 

10 

II  12  13 

14 

15 

16 

Temp  : 

16.89 

27.88 

22.06  26.65  10.20 

27.96 

18.54 

23.27 

Twa 

ATwa 

Tliqd 

Tliqd2  Tvapr  Psat 

T  sump 

6.72 

21  .61 

2.30 

2.26  2.32  -1.66 

-16. 

l 

Thetab 

Htube 

Odp  Athetab  Ahtube 

AuQdp 

4.419  1.29ZE+03  5.709E+03  19.313  5.I3IE+02  9.909E+03 


Oata  Set 

Number 

•  9 

8ulk  Oil  X  •  0.0 

TINE: 

16:30 

:  1 9 

TC  No: 

1 

2 

3  4  5 

6 

7 

8 

Temp  : 

6.64 

6.99 

6.94  6.86  -99.99 

6.52 

6.60 

6.97 

TC  No: 

9 

10 

11  12  13 

1  4 

15 

16 

Temp  : 

16.39 

27.90 

22.08  26.67  10.19 

27.99 

18.55 

23.30 

Twa 

ATwa 

Tliqd 

Tliqd2  Tvapr  Psat 

T  sump 

6.77 

21  .63 

2.36 

2.28  2.33  -1.63 

-16. 

1 

Thetab 

Htube 

Odp  Athetab  Ahtube 

AuQdp 

4.443 

I.285E+03  S. 

,7106+03  19.304  5 . 1 32E+02 

9 . 906E+03 

Oata  Set 

Number 

-  1 0 

Sulk  011  X  -  0.0 

TIME: 

16:36 

:  47 

TC  No: 

1 

3  4  5 

6 

7 

8 

Temp  : 

8.57 

9.  15 

9.03  8.95  -99.99 

8.48 

8.51 

9.06 

TC  Nq: 

9 

10 

11  12  13 

14 

15 

IS 

Temp  : 

16.90 

27.82 

21.99  26..  59  10.03 

27.90 

13.44 

23.21 

Twa  ATwa  Tliqd  Tliqd2  Tvapr  Psat  Tsurtp 

8.77  21 .S3  2.27  2.20  2. 25  -1.72  -15.9 

Thetab  Htube  Qdo  Athetab  Ahtube  AuOdD 

S.529  l . 292E+03  9.43IS+03  19.298  5.I35E+02  9.904E^03 
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Oata  Set  Number  »  II  Bulk  Oil  X  •  0.3 

TINE:  I S : 37 : 3 | 

TC  No:  I  2  3  4  S  S  7  8 

Terns  :  B.S7  9. IS  9  37  8.36  -99.99  8.57  8.54  9.34 

TC  No:  9  10  II  1 2  13  14  IS  IS 

Temo  :  IS. 93  37.85  33. 01  36.61  10.04  37.93  18.48  33.34 

Tua  ATua  Ttiqd  Tliqd3  Tvapr  Paat  Taump 
•8.81  31.56  3.38  3.33  3.37  -1.71  -15.9 

Thatab  Htube  Qds  Ati.otab  Ahtube  AuQdp 

6.549  1.298E+03  8.433E*03  19.303  5.I4IE+03  9.924E+03 

Oata  Set  Number  »  12  Sulk  Oil  X  ■  0.0 

TINE:  16:46:52 

TC  No:  I  2  2  4  5  6  7  8 

Temp  :  10.81  11.49  11.44  11.33  -99.99  10.67  10.70  11.45 

TC  No :  9  10  II  13  13  14  IS  16 

Temp  :  16.85  27.92  22.03  26.67  10.02  29.00  18.49  23.28 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Paat  Taump 

11.06  21. S3  2.32  2.26  2.28  -1.67  -IS. 5 

Thetab  Htube  Odp  Athetab  Ahtube  AuQdp 

8.771  1.3146+03  I . 152E+04  19.305  S.I52E+02  9.946E+03 

Oata  Set  Number  »  13  8ulk  Oil  X  «  0.0 

TINE:  16:47:44 

TC  No:  I  2  3  4  S  6  7  8 

Temp  :  10.76  11.52  11.44  H.2I  -99.99  10.73  10.71  11.36 

TC  No:  9  10  ||  I-  13  u  ,5  )G 

Temp  :  16.85  27.89  22.01  26.65  10.01  27.97  18.49  23.25 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Peat  Taump 

11.03  21.57  2.32  2.24  2.27  -1.68  -IS. 4 

Thetab  Htube  ado  Athetab  Ahtube  AuOdo 

8.759  I.319E+03  1. 1546+04  19.296  S.166E+0Z  9.969E+03 

Oata  Set  Number  »  14  Bulk  Oil  X  -  0.0 

TINE:  16:57:55 

TC  No:  1  2  3  4  5  6  7  9 

Temp  :  12.49  13.36  13.26  13.10-99.99  12.29  12.30  13.19 

TC  No:  9  10  II  12  1314  15  16 

Temp  :  16.00  27.91  21.99  29.66  9.97  27.99  18.45  23.25 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Paet  Taump 

12.77  21.56  2.23  2.19  2.19  -1.77  -14.9 

Thetah  Htube  Odp  Athetab  Ahtube  AuOdp 

10.576  I . 332E+03  I.409E+04  19.366  5.IS8E+02  9.989E+03 

Oata  Set  Number  «  IS  Bulk  Oil  X  *  0,0 

TIME:  16:59:31 

TC  No:  I  2  3  4  5  6  7  9 

Temp  :  12.40  13.36  13,29  13.14  -99.99  12.46  12.46  13.36 

TC  Nq :  g  10  11  1 2  13  14  IS  IS 

Temp  :  16.94  27.32  22.02  28. S3  10.00  28.02  18.48  23.29 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Paat  Taump 

12.84  21.59  2.24  2.19  2.22  -1.74  -14.8 

Thetab  Htube  Qdo  Athetab  Ahtube  AuQdo 

10.813  1 . 330E+03  1.4I2E-04  19.369  S.171E+0Z  t .0026*04 

Oata  Set  Number  »  IS  Bulk  Oil  X  •  0.0 

TINE:  I  7 : 0S : 00 

rC  No:  i  2  3  4  S  S  7  g 

:  15.25  15.14  14. 72  -99.39  14.13  14.08  15.06 
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TC  No:  9  10  II  12  13  14  IS  IS 

Temp  :  IS. 84  27.94  22.04  2S.S9  10.02  29.02  13.49  23.26 

Tua  ATua  Tliqd  T1 iqd2  Tvapr  Paat  Taump 

14.52  21. 59  2.29  2.23  2.19  -1.74  -14. S  . 

Thetab  Htube  Qdp  Athetab  Ahtube  AuOdp 

12.300  I . 36SE+03  I . 679E+04  19.370  5.1706*02  1. 00 1 E  +04 

Data  Set  Number  »  17  Sulk  Oil  X  *  0.0 

TIME:  17:05:42 

TC  No:  I  2  3  4  5  S  7  9 

Temp  :  14.12  15.39  15.28  14.77-99.99  14. IS  14. IB  15.10 

TC  No:  9  10  11  12  13  14  IS  IS 

Temp  :  IS. 93  27.93  22.02  2S.S9  9.99  28.02  18.49  23.28 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Paat  Taump 

14. SI  21.59  2.27  2 . 1 8  2.20  -I.7S  -14.4 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

12  398  I.354E+03  I .679E+04  I9.37S  5.I54E+02  9.986E+03 


Oata  Set 

Number  »  1 8 

Bulk 

Oil  X  -  0.0 

TIME: 

17:10:46 

TC  No: 

1  2 

3 

4  5 

6  7  8 

T emp  : 

1S.S4  16.91 

16.80 

16.36  -99.99 

16.07  16.01  16.72 

TC  No: 

9  10 

1  1 

12  13 

14  IS  16 

Temp  : 

16.68  27.63 

21  .81 

26.40  9.92 

27.71  18.31  23.03 

Tua 

ATua  Tliqd 

Tliqd2  Tvapr  Psat 

T  sump 

16.24 

21.37  2.25 

2.16 

2.14  -1.80 

-14.2 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

1 4 .067  I . 406E+03  I.978E+04  19.198  S.I47E+02  9.88IE+03 

□eta  Set  Number  «  19  Bulk  Oil  l  “  0.0 

TIME:  17:11:22 

TC  No:  1  2  3  4  5  S  7  8 


Temp  : 

IS. 54  16.84 

16.73 

16.36  -99.99  16.06 

IS. 96 

16.80 

TC  No: 

9  10 

1  1 

12  13  14 

IS 

16 

Temp  : 

16.68  27.64 

21.80 

26.41  9.94  27.72 

18.32 

23.04 

Tua 

ATua  Tliqd 

2  Tvapr  Psat  Taump 

16.21 

21.38  2.25 

2.  IS 

2.15  -1.80  -14 

1 

Thetab 

Htube  Qdp 

Athetab  Ahtube 

AuQdp 

14.036 

1 . 407E+03  1 

97SE+04 

19.207  5.139E+02 

9.870E+03 

Data  Set 

Number  -  20 

Sulk  Oil  X  -  0.0 

TIME: 

17: 16:58 

TC  No: 

1  2 

3 

4  5  5 

7 

8 

Temp  : 

17.40  ig.39 

18.23 

17.64  -99.99  17.89 

17.62 

18.27 

TC  No: 

9  10 

1  1 

12  13  14 

IS 

16 

Temp  : 

16.77  27.72 

21.98 

26.50  9.99  27.79 

18.39 

23.08 

Tua 

ATua  Tliqd 

T 1  iqd 

2  Tvapr  Psat  Taump 

17.78 

21.45  2.32 

2. 25 

2.20  -1.72  -13 

9 

Thetab 

Htube  Qdp 

Athetab  Ahtube 

AuQdp 

IS.S39 

1.5166*03  2 

355E*04 

19.206  5.U8E+02 

9 . 386E*03 

Oata  Set 

Number  »  21 

Bulk  Oil  X  -  0.0 

TIME: 

17: 17:40 

TC  Mo: 

1  2 

3 

4  5  6 

7 

9 

Temp  : 

17.39  18.33 

18.18 

17.62  -99.99  17.92 

17.64 

18.24 

TC  Mo: 

9  10 

l  1 

12  13  14 

15 

16 

T  emo 

iS.”  27. '4 

21.31 

25.52  10.02  27.82 

18.42 

23.  I  1 

Tua 

ATua  T  l  i  ad 

Tliqd 

2  Tvapr  P^at  Taumo 

l  7 . 7= 

21.4"  2.32 

2.25 

: . i g  -i  .73  -i3 

3 

rHe  tab 

Htuoe  Ido 

At  het  ab  Ahtub* 

AuQdp 
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IS. SI  I  I.S22E*03  2.360E*04  19.334  S.I59E+02  9.923E*03 

Data  Set  Number  »  22  Bulk  Oil  X  *  0.0 

TIME:  17:23:15 

TC  No:  I  *  2  3  4  S  S  7  9 

Temp  :  19. 56  18. 9S  19.94  18.14  -99.99  19.66  18.75  18.83 

TC  No :  9  10  II  12  13  14  IS  IS 

Temp  :  16.77  27.73  21.90  26.50  10.07  27.81  18.40  23.11 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Peat  Tsump 

18. 65  21.47  2.28  2.25  2.12  -1.77  -13.5 

Thetab  Htube  Qdp  Athetab  Ahtube  AuOdp 

16.455  I.72SE+03  2.838E+04  19.274  S.I38E+02  9.903E+03 


Oata  Set 

Number  »  23 

Sulk 

Oil  X  -  0.0 

TIME: 

I7:23:S7 

TC  No: 

1  2 

3 

4  5 

6  7 

8 

Temp  : 

18.50  18.93 

18.88 

18.11  -99.99 

19.63  18.72 

18.81 

TC  No: 

9  10 

1 1 

12  13 

14  15 

16 

T emp'  : 

16.77  27.74 

21.90 

26.52  10.05 

27.83  18.42 

23.12 

Tua 

ATua  Tliqd 

Tllqd2  Tvapr  Psal 

T  sump 

18.63 

21.48  2.28 

2.22 

2.12  -1.78 

-13.5 

Thetab  Htube  Qdo  Athetab  Ahtube  AuOdp 

16.442  I.729E+03  2.843E+04  19.291  S.126E+02  9.889E+03 

Oata  Set  Number  •  24  Bulk  011  X  -  0.0 

TIME:  17:29:40 


TC  No: 

1 

2 

3 

4  5  6 

7 

8 

Tamp  : 

19.0a 

19.38 

19.33 

18.42  -99.99  21.01 

19.60 

19.18 

TC  No: 

9 

10 

1 1 

12  13  14 

15 

16 

Temp  : 

16.83 

27.80 

21.96 

26.58  10.09  27.87 

18.47 

23.14 

Tua 

ATua 

T1  tqd 

Tltqd2  Tvapr  Psat  Tsump 

19.23 

21  .53 

2.29 

2.18 

2.17  -1.76  -13. 

1 

Thetab 

Htube 

Ode 

Athetab  Ahtube 

AuOdp 

17.029  I . 969E+03  3.353E+04  19.320  S.122E+02  9.896E+03 


Oata  Set 

Number  »  25 

Sulk 

011  X  -  0.0 

TIME: 

17:30:27 

TC  No: 

1  2 

3 

4  5 

6 

7 

8 

Temp  : 

19.10  19.42 

19.32 

18.42  -99.99 

21 .02 

19.50 

19.16 

TC  No: 

9  10 

1 1 

12  13 

14 

15 

16 

Temp  : 

16.84  27.81 

21.97 

26.60  10.11 

27.89 

19.48 

23.18 

Tua 

ATua  Tliqd 

Tliqd2  Tvapr  Psat  Tsump 

19.24 

21.54  2.32 

2.21 

2.19  -1. 

74  -13. 

,  1 

Thetab 

Htube  Odp 

Athetab  Ahtube 

AuOdp 

17.010 

I . 968E+03  3. 

.  348E+04  19.317  5. 

I07E+02 

9 . 865E+03 

Oata  Set 

Number  •  26 

Bulk 

Oil  r.  -  0.0 

TIME: 

1 7 : 35 : S3 

TC  No: 

1  2 

3 

4  5 

6 

■  7 

8 

Temp  : 

19.60  19. ’9 

I9\8I 

18.74  -99.99 

22.75 

20.47 

19.48 

TC  No: 

9  10 

1  1 

12  13 

14 

15 

16 

Tamo  : 

16.81  27.76 

21.93 

26.54  10.06 

27.83 

18.44 

23.  13 

Tua 

ATua  Tliqd 

Tliqd2  Tvapr  Psat  Tsump 

19.84 

21.49  2.21 

2.10 

i  2.11  -1 . 

84  -12. 

7 

Thetab 

Htube  Qdo 

Athetab  Ahtube 

AuQdo 

17.705 

2.-149E+03  4. 

■335E+04  19.361  5. 

3966*02 

9 . 366E+33 

Oa t a  Set 

Nunber  »  ^7 

9u  i  V 

Oil  X  »  0.3 

TIME: 

17:36:50 

TC  No: 

1  z 

3 

4  5 

6 

7 

8 
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Temp  :  19. 62  19.91  19.82  19.76  -99.99  22.76  20.54  19.53 

TC  No:  9  10  II  1C  13  14  IS  16 

Temp  :  IS. 37  37.30  21.98  26.58  10.18  27.88  18.51  23.18 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Psat  Tsump 

19.37  21.55  2.33  2.19  2.20  -1.73  -12.6 

Thetab  Htube  Odp  Athetab  Ahtube  AuQdp 

17.639  2 . 4S6E+05  4.332E+04  I9.32S  S.II0E*02  9.8756*03 

Data  Sat  Number  *  28  Sulk  Oil  5  »  0.0 

TIME:  17:40:06 

TC  No:  1  2  3  4  5  6  7  8 

Temp  :  20.25  20.32  20.40  19.23  -99.99  24.53  21.18  20.00 

TC  No :  9  10  II  12  13  14  IS  IS 

Temp  :  16.89  27.83  21.99  26.60  10.17  27.91  18.53  23.22 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Psat  Tsump 

20.50  21.98  2.32  2.28  2.14  -1.75  -12.3 

Thatab  Htube  Odp  Athetab  Ahtube  AuQdp 

18.277  3.3I2E+03  S.0S4E+04  19.359  5.083E+02  9.839E*03 

Oata  Set  Number  »  29  8ulk  011  X  ■  0.0 

TIME:  17:40:48 

TC  No:  1  2  3  4  S  6  7  8 

Temp  :  20.23  20.30  20.38  19.22  -99.99  24.51  21.17  20.00 

TC  No:  9  10  it  12  13  14  15  IS 

Temp  :  16.85.  27.74  21.93  26.51  10.13  27.82  18.47  23.15 

Tue  ATua  Tliqd  Tliqd2  Tvapr  Psat  Tsump 

20.48  21.51  2.33  2.25  2.16  -1.74  -12.2 

Thetab  Htube  Odp  Athetab  Ahtube  AuQdp 

18.254  3.306E+03  6.0346*04  19.283  S.096E*02  9.82SE*03 


Oata  Set 

Number 

-  30 

Bulk 

Oil  X  -  0.0 

TIME: 

17:41 

:22 

TC  No: 

1 

3 

4  5 

5  7 

8 

Temp  : 

20.23 

20.31 

20.38 

19.22  -99.99 

24.51  21.17 

20.00 

TC  No: 

9 

10 

1 1 

12  13 

14  15 

16 

Temp  : 

16.86 

27.77 

21.95 

26.55  10.14 

27.85  18.50 

23.16 

Tua 

ATua 

Tliqd 

Tllqd2  Tvapr  Psat 

T  sump 

20.48 

21  .53 

2.30 

2.27 

2.13  -1.76 

-12.2 

Thetab  Htube  Odp  Athetab  Ahtube  AuQdp 

1 8 .275  3.3106*03  S.049E+04  19.323  S.I0OE+02  9.8S4E*03 

NOTE:  29  data  runs  ware  stored  in  file  OAT0406I42 


Oata  :  6  Apr  1892 

NOTE:  Program  name  :  0RP72 
Otsk  number  »  00 
Neu  Tile  name:  QAT0406O42 
TC  is  defective  st  location  5 
No  defective  AUX  TCs  exist 
Tube  Numoer:  4 


Oata  Set 
TIME: 

TC  No: 

Number  *  1 

17:48:16 

1  2 

8ulk  011  X  -  0.0 

3  4  5 

6  7  8 

Temo  : 

19.64 

19.35 

19.85  18.76  -99.99 

22.85  20.54  19.54 

TC  No: 

9 

10 

11  12  13 

14  15  16 

Temo 

16.90 

27.70 

21.39  26.48  10.07 

27.79  18.44  23.12 

T  ua 

ATua 

T 1  iod 

Tliqd2  Tvapr  Psat 

T  sump 

19.89 

21.47 

2.31 

2.23  2.M  -1  .'8 

-11.7 
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Thetab  Htube  Odp  Athetab  Ahtube  AuQdo 

17.700  2.481E+03  4.392E+04  19.279  5.1106*02  9.850E*03 


Oata  Set 

Nunber  «  2 

Bulk  Oil  5  -  0.0 

TIME: 

17:49:07 

TC  No: 

1  2 

3  4  5  6 

7 

B 

Tanp  : 

19.64  19.88 

19.88  18.78  -99.99  22.85 

20.  S2 

19.56 

TC  No: 

9  10 

II  12  13  14 

IS 

16 

Tano  : 

16.79  27.66 

21.87  26.45  10.11  27.75 

18.42 

23.07 

Twa 

ATwa  Tltqd 

Tllqd2  Tvapr  Psat  Tsunp 

19.90 

21.45  2.32 

2.28  2.14  -I .75  -II. 

7 

Thatab 

Htube  Odp  Athetab  Ahtube 

AuQdp 

17.685 

2 . 476E+03  4. 

378E+04  19.231  5.II2E+02 

9. 830E+03 

Oata  Set 

Nunber  »  3 

Bulk  Oil  X  -  0.0 

TIME: 

17:54:28 

TC  No :  I  2  3  4  5  6  7  3 

Tonp  :  18.55  19.04  19. 9S  18.18  -99.99  19. 78  18.77  18.87 

TC  No:  9  10  11  12  13  14  IS  16 

Tanp  :  16.70  27.60  21.79  26.38  9.99  27.68  18.33  23.09 

Twa  ATwa  Tltqd  Tliqd2  Tvapr  Psat  Tsunp 

18.70  21.38  2.23  2.19  2.09  -1.82  -II. 5 

Thatab  Htube  Qdo  Athetab  Ahtube  AuQdp 

16.552  I.75SE+03  2.90SE+04  19.226  5.121E+02  9.845E+03 


Oata  Sat 

Nunber  «  4 

Sulk  011  X  -  0.0 

TIME: 

17:55:10 

TC  No: 

1  2 

3  4  5  6 

7 

8 

Tano  : 

19.61  19.05 

18.96  18.17  -99.99  19.76 

18.85 

18.89 

TC  No: 

9  10 

U  12  13  14 

IS 

16 

Tanp  : 

16.71  27.63 

21.80  26.41  9.99  27.71 

18.35 

23.12 

Twa 

ATwa  Tliqd 

TUqd2  Tvapr  Psat  Tsuno 

18.73 

21.40  2.26 

2.20  2.12  -1.79  -ii. 

.5 

Thetab 

Htube  Qdp  Athetab  Ahtube 

AuQdo 

16.551 

1  . 756E+03  2. 

906E+04  19.222  5.I22E+02 

9.84SE+03 

Oata  Set 

Nunber  ■  5 

Sulk  Oil  Z  -  0.0 

TIME: 

19:01 :43 

TC  No :  I  2  3  4  5  6  7  9 


Tanp  : 

17.47 

19.37 

19.30  17.72  -99.99  17.94  17.61 

19. 35 

TC  No: 

9 

10 

11  12  13  14  •  is 

16 

Tanp  : 

16.70 

27.60 

21.78  26.39  9.96  27.67  18.32 

23.07 

Twa 

ATwa 

Tltqd 

Tllqd2  Tvapr  Psat  Tsunp 

17. 32 

21  .37 

2.23 

2.18  2.09  -1.83  -11.4 

Thetab  Htube  Odp  Athetab  Ahtube  AuOdp 

15.678  I .55SE+03  2.4396*04  19.22S  S. 1406*02  9.982E+03 

Oata  Set  Nunber  -  S  Bulk  Oil  X  *  0.0 

TIME:  18:02 : 25 

TC  No:  1  2  3  4  5  S  7  8 

Tenp  :  17.49  13.30  10.25  17.75  -99.99  17.96  17.52  18.23 

TC  No:  9  10  11  12  13  14  IS  16 

Tano  :  16.75  27.71  21.86  26.50  9.99  27. 79  18.39  23.18 

Tua  AT«a  Tltqd  Tltqd2  Tvapr  Psat  Tsunp 

17.80  21.45  2.25  2.22  2.10  -1.80  -11.4 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdo 

15.627  i.562E*03  2.442E*04  19.295  S.iS3E*02  9.338E*03 

Oata  Set  Nunber  -  7  8uik  Oil  X  »  0.0 

TIME:  18:07:14 
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TC  No : 

1 

3  4  5 

6  7 

8 

Temp  : 

15.29 

16.40 

16.31  15.94  -99.99 

15.69  15.53 

16.35 

TC  No: 

9 

10 

II  12  13 

14  IS 

16 

T  emp  : 

16.74 

27.72 

21.84  26.50  9.89 

27.80  18.38 

23.19 

Twa 

ATwa 

T  1  iqd 

Tliqd2  Tvapr  Psat 

T  sump 

15.92 

21.44 

-»  -a 

2.13  2.14  -1.81 

-11.4 

Thetab  Htube  Odo  Athetab  Ahtube  AuQdo 

I3.S5S  I.402E+03  I.915E+04  19.281  S.I53E+02  9.937E+03 

Oata  Sat  Number  -  8  Bulk  Oil  It  “  0.0 

TIME:  18:07:50 


TC  No: 

1 

■5 

3 

4  5  6 

7 

8 

Temp  : 

15.33 

15.51 

16.43 

15.99  -99.99  15.59 

15.55 

16.40 

TC  No: 

9 

10 

1  l 

12  13  14 

15 

16 

Temp  : 

16.75 

27.73 

21  .97 

26.50  9.94  27.81 

18.39 

23.20 

Twa 

ATwa 

Tl  iqd 

Tl  iqd 

2  Tvapr  Psat  Tsump 

15.86 

21.46 

2.23 

2.16 

2.14  -1.80  -II. 

,4 

Thetab 

Htube 

Odp 

Athetab  Ahtube 

AuQdo 

13.690 

1. 3976+03  1. 

.  91 2E+04 

19.290  5 . 1 38E+02 

9. 912E+03 

Oata  Set 

Number 

-  9 

Bulk  Oil  X  -  0.0 

TIME: 

18:12 

:  30 

TC  No: 

1 

3 

4  5  6  . 

7 

8 

Temp  : 

12.40 

13.42 

13.33 

13.03  -99.99  12. 4S 

12.33 

13.24 

TC  No: 

9 

10 

1 1 

12  13  14 

15 

16 

Temp  : 

17.23 

28.71 

22.91 

27.44  10.37  28.81 

18.97 

24.02 

Twa 

ATwa 

Tliqd 

Tllqd2  Tvapr  Psat  Tsump 

12.80 

22.24 

2.28 

2.23 

2.22  -1.73  -11. 

,4 

Thetab 

Htube 

Odp 

Athetab  Ahtube 

AuOdp 

10.564  I .337E+03  I.412E+04  20.002  5.I98E+02  1.040E+04 

Oata  Sat  Number  ■  10  Bulk  011  X  "  0.0 

TIME:  1 8 : I  3 : 4S 

TC  No:  I  2  3  4  S  G  7  8 

Tamp  :  12.22  13.34  13.25  12.95  -99.99  12.41  12.41  13.25 

TC  No :  9  10  II  12  13  14  15  |g 

Temp  :  16.92  27.94  22.25  26.62  10.12  27.93  18.48  23.31 

Twa  ATwa  Tllgd  Tligd2  Tvapr  Psat  Tsump 

12.75  21.60  2.27  2.18  2.20  -1.75  -11.4 

Thatab  Htube  Qdg  Athetab  Ahtube  AuQdo 

10.536  I.340E+03  I.412E+04  13.392  5.I43E*02  9.973E+03 

Oata  Set  Number  »  II  Bulk  011  X  •  0.0 

TIME:  18:14:39 

TC  No :  1  2  3  4  5  S  7  8 

Temp  :  12.33  13.31  13.25  12.95  -99.99  12.39  12.36  13.24 

TC  No:  9  10  II  12  13  14  IS  ig 

Temp  :  16.97  27.94  22.33  26.72  10.10  28.04  18.53  23.37 

Twa  Aiwa  Tliqd  Tliqd;  Tvaor  Psat  Tsump 

12.75  21.57  2.23  2.20  2.19  -1.76  - i 1 . 4 

Thetab  Htube  Odo  Athetab  Ahtube  AuQdo 

10.547  I.340E+03  I.4I3E*04  19.469  5.l6iE*02  I.00SE+04 

Oata  Set  Number  »  12  Bull-  Oil  t  •  0.0 


TIME: 

TC  No : 

19:15:27 

1  2 

3  4  5 

6  7 

3 

r  -no 

12.28 

13.35- 

13.22  13.30  -69. 69 

12.46 

12.49 

13.19 

T C  Mo: 

S 

10 

ii  '2  '3 

1  4 

is 

16 

r -no 

16.63 

27.15 

2'.  32  25.21  6.39 

2-7 . 53 

18.16 

22.96 

f  wa 

a  r  pjd 

Tliqd 

r !  nd2  T  Psat 

T  ?uno 
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12.79  21.27  2.29  2.24  2.23  -1.72  -11.4 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

10.545  I . 334E+03  1. 4065+04  19.029  S.0S0E+02  9.628E+03 

Oata  Set  Number  ■  13  Bulk  Oil  X  *  0.0 

TINE:  18:20:06 


TC  No: 

1  2 

1*4 

«* 

Lil 

6 

7 

8 

Temp  : 

9.58  10.38 

10.34  10.11  -99.99 

9.65 

9.65 

10.23 

TC  No: 

9  10 

II  12  13 

14 

15 

16 

Temp  : 

16. SI  27.11 

21.70  25.94  9.92 

27.19 

18.05 

22.71 

Tua 

ATua  Tliqd 

Tliqd2  Tvapr  Psat 

T  sumo 

9.93 

21.08  2.25 

2.19  2.21  -1.75 

-1 1  . 

S 

Thetab 

Htube  Qdp  Athetab  Ahtube 

AuOdp 

7.718 

I.297E+03  1. 

.00IE+04  18.862  5 . 090E+02 

9.601E+03 

□ata  Set 

Number  ■  1 4 

Sulk  011  X  -  0.0 

TINE: 

13:20:40 

TC  No: 

1  2 

3  4  5 

6 

7 

9 

Temp  : 

9.64  10.30 

10.21  9.96  -99.99 

9.60 

9.S7 

10.20 

TC  No: 

9  10 

II  12  13 

14 

15 

16 

Temp  : 

16.49  27.08 

21.68  25.90  9.91 

27.  16 

18.04 

22.69 

Tua 

ATua  Tliad 

Tliqd2  Tvapr  Psat 

T  sump 

9.97 

21.06  2.22 

2.17  2.16  -1.79 

-II  .5 

Thetab 

Htube  Qdp  Athetab  Ahtube 

AuQdp 

7.685 

1 . 303E+03  1. 

.00IE+04  18.874  S.074E+02 

9.S77E+03 

Oata  Sat 

Number  “  1 S 

Sulk  Oil  X  •  0.0 

TINE: 

18:25:06 

TC  No: 

i  2 

3  4  5 

6 

7 

8 

Tamp  : 

6.06  6.J0 

6.25  6. IB  -99.99 

6.00 

.  5.99 

6.27 

TC  No: 

9  10 

11  12  13 

14 

IS 

16 

Temp  : 

16.55  27.13 

21.72  25.96  9.99 

27.21 

18.11 

22.75 

Tua 

A Tua  Tliqd 

Tliqd2  Tvapr  Psat 

Tsump 

6.12 

21.11  2.24 

2.20  2.23  -1.74 

-1  1  . 

.6 

Thetab 

Htube  Qdp  Athetab  Ahtube 

AuOdp 

3.893 

I.267E+03  4 

•93IE+03  18.889  5.06 

2E+02 

9.S6IE+03 

Oata  Sat 

Number  «  16 

Bulk  0.1  X  -  0.0 

TINE: 

18:25:41 

TC  No: 

1  2 

3  4  5 

6 

7 

8 

Temp  : 

6.02  6.37 

6.33  6.22  -99.99 

5.98 

S.  99 

6.32 

TC  No: 

9  10 

11  12  13 

14 

IS 

16 

Temp  : 

16.58  27.16 

21.75  25.99  10.01 

27.24 

18.15 

22.77 

Tua 

ATua  Tliqd 

Tllqd2  Tvapr  Psat 

T  sumo 

6.15 

21.14  2.28 

2.23  2.27  -1.69 

-II, 

,6 

Thetab 

Htube  Qdp  Athetab  Ahtube 

muOdo 

3.881 

1.27IE+03  4 

.  933E+03  18.876  5.069E+02 

9.S67E+03 

□ata  Set 

Number  "  17 

Bulk  Oil  t  •  0.0 

TINE: 

18:30:07 

TC  No: 

1  2 

3  4  5 

6 

7 

8 

Temp  : 

4.46  4.55 

4.63  4.56  -99.99 

4.42 

4.43 

4.64 

TC  No: 

9  10 

M  12  13 

1  4 

IS 

16 

Temo  : 

16.75  27.50 

22.00  26.31  10.14 

27.59 

18.34 

23.05 

Tua 

ATua  Tliqd 

Tliqd2  Tvaor  Psat 

T  sump 

4.63 

21.39  2.30 

2.24  2.27  -1.69 

-II 

.7 

Thetab 

Htube  Odo  'thetab  Ahtube 

AuOdp 

2.255 

i.:sse*03  : 

.  3S3E+03  19.121  5.090E+02 

8.~32E 

*03 

Oata  Set 

Nunber  »  1 9 

Bulk  Oil  »  *  0.3 
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TIME:  18:30:52 

TC  No:  I  2  3  4  5  S  7  8 

T eng  :  4.49  4.55  4.64  4.58  -99.99  4.44  4.44  4.64 

TC  No:  9  10  II  13  13  14  tS  16 

Tenp  :  IS. 75  27.48  21.98  26.30  10.11  27.57  18.33  23. 0S 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Psat  Taunp 

4.54  21.38  2.30  2.24  2.28  -1.68  -11.7 

Thetab  Htuba  Odp  Athetab  Ahtube  AuOdp 

2.262  1 .2596+03  2.847E+03  19.104  S.067E+02  9.S8IE+03 

Data  Set  Number  •  19  8ulk  Oil  X  •  0.0 

TIME:  18:35:00 

TC  No:  I  2  3  4  5  6  7  8 

Tenp  :  3.39  3.46  3.46  3.42  -99.99  3.33  3.34  3.46 

TC  No:  9  10  II  12  13  14  15  16 

Tenp  :  16.68  27.38  21.91  26.19  10.12  27.45  18.27  22.93 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Paat  Taunp 

3.40  21.30  2.25  2.20  2.22  -1.74  -11.8 

Thetab  Htube  Qdp  Athetab  Ahtube  AuOdp 

1.176  1 . 306E+03  I.S36£*03  19.079  5.060E+02  9.SS4E+03 


Oata  Sat 

Nunber  *  20 

Sulk 

011  X  - 

0.0 

TIME: 

18:35:42 

TC  No: 

'  2 

3 

4 

5 

6 

7 

8 

Tenp  : 

3.42  3.48 

3.49 

3.46 

-99.99 

3.37 

3.38 

3.50 

TC  No: 

9  10 

1 1 

12 

13 

14 

15 

16 

Tenp  : 

16.70  27.38 

21.91 

26.19 

10.09 

27.46 

18.27 

22.95 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Paat  Taunp 

3.43  21.30  2.30  2.23  2.27  -1.69  -11.8 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdo 

1.165  1.3196*03  I.S37E+03  19.034  5.083E+02  9.676E*03 

Oata  Sat  Number  ■  21  8ulk  Oil  X  •  0.0 

TIME:  18:40:25 

TC  No :  I  2  3  4  5  6  7  8 

Tenp  :  2.68  2.68  2.69  2.67  -99.99  2.64  2.65  2.71 

TC  No:  9  10  11.12  13  14  15  16 

Tenp  :  16.66  27.28  21.83  26.10  10.16  27.37  18.22  22.88 

Tua  ATua  Tliqd  Tliqd2  Tvapr  Paat  Taunp 

2.67  21.25  2.23  2.21  2.23  -1.73  -11.9 

Thetab  Htube  Qdp  Athetab  Ahtube  AuQdp 

.444  1.4046*03  6.232E+0Z  19.020  S.044E*02  9.593E*03 

Oata  Set  Number  *  22  Sulk  Oil  X  •  0.0 


TIME: 

18:41 

:  07 

TC  No: 

1 

2 

3 

4  5  S 

7 

8 

Temo  : 

2.71 

2.71 

2.73  2 

.70  -99.99  2.67 

2.67 

n 

r- 

M 

* 

TC  No: 

9 

10 

1  l 

12  13  14 

15 

16 

Tenp  : 

16.67 

27.30  2 

1.84  26 

.11  10.07  27.38 

18.22 

22.90 

Tua 

ATua 

T1  iqd 

TUqd2 

Tvapr  Paat  Taunp 

2.70 

21.25 

2.29 

n 

2-26  -1.70  -II. 

9 

Thetab 

Htube 

Qdp 

Athetab  Ahtube 

AuOdp 

.439 

1.41 5E+03  6.2 

1  SE*02 

18.985  5.03IE*02 

9.551 E+03 

NOTE:  22 

data  runa  uere 

stored 

in  file  OAT0406O42 

77 


APPENDIX  D.  PROGRAM  SETUP72 

Program  SETUP72  is  listed  on  the  following  pages.  The  program  enables  the  user 
to: 

1.  Monitor  coolant  sump  temperature. 

2.  Monitor  liquid  pool  average  temperature. 

3.  Monitor  all  thermocouple  channel  output  temperatures. 

4.  Monitor  voltage,  current,  and  resulting  power  supplied  to  the  upper  tube  heater 
(main  heater)  as  well  as  the  resistance  of  the  heater. 

5.  Monitor  the  voltage,  current,  and  resulting  power  supplied  to  the  lower  tube  heater 
(auxiliary  heater)  as  well  as  the  resistance  of  the  heater. 

Program  SETUP72  is  written  in  Hewlett-Packard  Basic  5.0  for  the  HP  9300  series 
computer. 
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!  '  PROGRAM:  SETUP 

2  '  DATE:  AUGUST  3,1991 

1  '  PROGRAMMER ;  LT  DEAN  SUSIYAMA 

S  1  MODIFIED  9Y  U ANNIE  LAKE  JAM  22  ,  1992 

! 0  COM  /Cc/  C! 7  ) 

20  DATA  0. 1 0096991  ,2S727 . 943E9  .-7S734S . 9295  .79325595 . 9 1  ,-9217486589  ,S . 97SS9E* 


!  I  ,- 

2.SS192E+13 

2! 

OATA  3. 34379S+ 1 4 

RE  AO  0!  •  ) 

23 

ON  KEY  1  .15  SOTO  27 

25 

PRINTER  IS  ! 

27 

PRINT 

29 

PRINT 

33 

PRINT  USING  " 4X ,  "SELECT 

OPTION*'" 

31 

PRINT  USING  "SX  .'-0-MONITOR  SUMP”* 

32 

PRINT  USING  'SX.”1  -MONITOR  LIQUID*” 

33 

PRINT  USING  *6X, "2-CHECK 

THERMOCOUPLES 

34 

•PRINT  USING  *SX ,' ’3-CHECK 

MAIN  HEATER” 

35 

PRINT  USING  'SX "4-CHECK 

AUX  HEATERS** 

36 

PRINT  USING  'SX  , * *S-EXIT 

PROGRAM'** 

37 

PRINT  USING  "4X , * "NOTE :  KEY  I  -  ESCAPE* 

39 

9EEP 

43 

INPUT  Ido 

4 1 

IF  Ido; 5  THEN  Ido-S 

42 

IF  Ido-0  THEN  SO 

43 

IF  Ido-1  THEN  155 

44 

IF  Ido-2  THEN  1.73 

45 

IF  Ido-3  THEN  195 

46 

IF  Ido-4  THEN  195 

47 

IF  Ido-5  THEN  231 

49 

PRINT 

491 

50 

PRINT 

5! 

PRINT  “SUMP  TEMPERATURE  0E3  C  ’ 

S3 

PRINT 

54 

OUTPUT  709; 'AR  AF19  AL19 

URS* 

S3 

OUTPUT  709; * AS  SA" 

73 

Sun-0 

■- 

90 

FOR  J-l  TO  5 

90 

ENTER  709 ;E 

100 

Sun-Sun+E 

1  !  0 

NEXT  1 

!  23 

Eave-Sun/5 

1  33 

Tano-FNTvsv( Save  > 

1  40 

PRINT  USING  '4X ,MC0.00':T 

sno 

111 

BEEP 

!  12 

PRINT 

'S3 

WAIT  5 

151 

GOTO  53 

152' 

155 

PRINT 

'  56 

PRINT  "LIQUID  TEMPERATURE 

DEG  C* 

ICO 

PRINT 

'59 

OUTPUT  739; 'AR  APIS  AL 1 7 

UPS ' 

'  S3 

Sun-0 

'SI 

C0R  !«l  TO  2 

'  52 

OUTPUT  ~39:'aS  SA • 

'  S3 

ENTER  "39;S 

'51 

5un»Sun*S 
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ICC  Mcyr  r 

?  55  Eave-Sun.-  2 

!S7  TeMP-FNTvav!  Eava  ! 

igg  pgr*(T  USING  -4v  «0D  .  DO " :  T*mp 

! 59  SEEP 

!73  VIA I T  = 

17!  SOTO  !SS 

!72' 

173  PRINT 

(75  PRINT  "CHANNEL  TEMPERATURE  0E5  C" 

! 77  OUTPUT  709 i "AR  AP30  AL!9  URS* 

179  FOR  !-!  TO  23 

! 79  OUTPUT  709: "AS  SA" 

193  Sum-0 

191  FOR  J-l  TO  S 

!92  ENTER  739 :E 

1 93  Surt-Sun+E 

194  NEXT  J 

195  Eave-Sun.'S 

1 95  Tonp*FNTvav( Eava ) 

197  PRINT  TA8< 3 ! : I : TA8( I S  ! ; Temp 

199  NEXT  I 

1 99  9ESP 

(90  WAIT  S 

1 9 I  SOTO  (73 

(94! 

(95  PRINT 

196  OUTPUT  709: "AR  4F23  AL22  URS’ 

197  FOR  I-l  TO  3 

199  OUTPUT  709:* AS  SA" 

1 99  Sum-3 

230  FOR  J-l  TO  5 

23!  ENTER  799:E 

232  Sun-Sum+E 

233  NEXT  J 

204  IF  I-(  THEN  Uo It -Sum/S 

235  IF  1-2  AND  I  do-3  THEN 

209  PRINT  "MAKE  SURE  UOLTASE  90X  IS  SET  TO  MAIN  HEATERS" 

210  Amp-Sum/5 

21 1  SNO  IF 

212  IF  1-3  ANO  I do-4  THEN 

21S  PRINT  "MAKE  SURE  U0LTA6E  BOX  IS  SET  TO  AUX  HEATERS" 

217  Amp-Sum/5 

219  ENO  IF 

219  NEXT  I 

223  Amp-ASS (Amp* I .9192 > 

22!  Uelt-ABS! Volt*25 ) 

222  Power»Uo l i *Amo 

223  Raaistanca-Ualt.'Ano 

224  PRINT 

225  9EEP 

229  PRINT  "VOLTASE!  U  J  CURRENT!  A  !  RE3ISTENCE!  ohma  !  POUERCJ!" 
227  PRINT 

229  PRINT  US  IMS  ' ! X ,S(  M0000.00 ,4X ! " :Uol t .Amp .Rea i a tence  .Power 

229  UAIT  S 

233  SOTO  195 

23!  9EEP 

222  PRINT 

233  POINT  "THAT'S  ^LL  OOLKS1" 

231  ENO 
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a 

23S 

Qcc  ^ N T  v s  v  ^  ij  ' 

23£ 

COM  /rc/  q.’7) 

?37 

T-C(0? 

239 

FOR  I"!  TO  7 

ft 

239 

T-T+C(  I  I 

249 

NEXT  I 

241 

T“T+9 .S2G997E-2iT  *(2.79 1 1 99E-3-T»S . 0S992S9E-5 ) 

242 

RETURN  T 

250 

FNENO 
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APPENDIX  E.  PROGRAM  DRP72 

The  data  acquisition  and  reduction  program  DRP72  is  listed  on  the  following  pages. 
Program  DRP72  is  written  in  Hewlett-Packard  Basic  5.0  for  the  HP  9300  series  com¬ 
puter. 
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!  C 

I  r-M^C  MflMC  ;  npQ-h 

2« 

i  ngrc  ; _ Maoru  c  i  eg"* 

12 

1  fi£'J 1 SEC  'JESS ION  OF  QRP~1  FOR  T’JQ  rUSE  OAT 

A 

19 

1  P.EUISEO  SY  Larnis  Lais 

S0 

COM  /Ido.-  Ido 

S0 

PRINTER  IS  ! 

72 

CALL  Sal  set 

90 

INPUT  "'JANT  TO  SELECT  ANOTHER  OPTION  (  !  «Y 

,9-M)7-  . Isal 

99 

IF  Isa  1-1  THEN  SOTO  79 

100 

SEEP 

!  10 

SEEP 

!  29 

PRINTER  IS  ! 

1  30 

PRINT  “DATA  COLLECTION/REPROCESSING  CQMPL: 

ETED- 

!  10 

END 

isa 

SU8  Main 

IS9 

COM  /Ido/  Ido 

1 73 

COM  /Cc/  0(7!  .leal 

190 

COM  /Wtl/  02  ,0t  .Da  ,L  ,Lu  ,Kcu 

190 

OIM  Enf  <  29  >  ,TC  20 !  .01  a(  1 3  !  ,02a<  13)  .OlaC  I3> 

,DoaC  !  7  ;  fLa(  1 3  >  .Lua(  1 3  >  .KcuaC  1  3 

Et(  ! 

9>  ,TnS<  1  )t  IS3 

:aa  oata  a. 10096091 ,25727. 91359. -?s73is. 9225,7932=595. 31 
2 1  a  DATA  -92471S6599  ,S . 97S99E+I I ,-2 .SB  I 92E-M  3 ,3 . 94079E+I 4 

229  REAO  C<»> 

239  1  DATA  -  Smooth*  ,  "High  Flux *  , " Tharnoexel-E"  , "Thernoexol-HE* 
210  DATA  Smooth. High  Flux  , Turbo-8  .High  Flux  Mod. Turbo-9  Mod 
2S0  READ  TntC) 

2S0  PRINTER  IS  701 
279  9EEP 

290  IF  Id0-1  THEN  PRINTER  IS  I 
290  IF  Ido-4  THEN  SOTQ  3030 

300  '  INPUT  -ENTER  MONTH,  DATE  AND  TIME  ( MM : 00 : HH : MM : $S  !“  ,0a t -S 
310  l  OUTPUT  709s "TO" :Q«tsS 
329  i  OUTPUT  ?09;-TO" 


330 

1  ENTER 

799; Dates 

310 

PRINT 

3S0 

1  PRINT 

Month.  Date  and  Tine  ;-;0ataS 

350 

PRINT 

*  Data  : "  .DATESC  TIMEOATE ) 

370 

PRINT 

390 

PRINT 

USING  "10X  .-'NOTE:  Program  name  :  0RP72" *  * 

390 

BEEP 

100 

INPUT 

-ENTER  0 ISK  NUMBER". Dn 

110 

PRINT 

USING  " 1 SX  . " "Oisk  nunbar  »  --,22-;On 

129 

BEEP 

130 

INPUT 

'ENTER  INPUT  MODE  ( 0-30S1A  .  1 -FILE  !' .  In 

110 

SEEP 

159 

INPUT 

•1  0R  3  TUeE  OPERATION  'ENTER  1  CR  2>",Hwnntu 

ISO 

geep 

l“0 

INPUT 

"SELECT  HEATING  MODE  (0-SLEC;  1 -WATER  J "  ,  Ihn 

199 

geep 

190 

INPUT 

"ENTER  THERMOCOUPLE  TYPE  (0-NEU , 1 -OLD >“  .leal 

=00 

IF  In- 

0  THEM 

Si  9 

9EEP 

529 

INPUT 

"GIVE  A  NAME  =0P  rHE  RAU  DATA  FILE"  .02_'"  ;  l-S 

=30 

PRINT 

USING  'SX,  "Neu  ‘:is  nans:  ' * , 1 4A" :Q2~* i ! -S 

=  10 

S  i  :s  1  - 

39 

==3 

CREATE 

BOAT  03_c : 1-S  ,3i:e ! 

can 

=-0  ' 

ASSIGN 

9F:  1-2  ~0  03_-  :  laS 

=  99  ' 

DUMMY 

=  ILE  UNTIL  N r-jn  YMOUM 
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593  0!_f i la«- 'OUKMY" 

S33  CREATE  SCAT  0!  f:la*.3ical 
513  ASSIGN  2Fi la  I  TO  OI_?ilai 
523  OUTPUT  ®F : la ! ; Da t s9 
533  IP  thn-0  THEN 
540  SEEP 

550  INPUT  'ENTER  NUK9ER  OF  DEFECT !UE  TCS  ! 3-QEFAULT , ldtc 
550  IF  ldtc»0  THEN 
570  Lite ! -0 
590  Ldt=2-0 

530  PRINT  USING  '  I SX  ,  *  ’Mo  defective  TCa  ssisf” 

700  END  IF 

710  IF  Idtc-I  THEN 

723  9EEP 

720  INPUT  'ENTER  OEFSCTIUS  TC  LOCATION  <l-9>".Ldtcl 

740  PRINT  USING  *ISX,*'TC  Is  defective  at  location  "',D0-:Ldtc1 

750  Ldtc2-0 

750  ENO  IF 

773  IF  Idte-2  THEN 

790  9EEP 

730  INPUT  "ENTER  OEFSCTIUE  TC  LOCATIONS  <  1 -9 >' ,Ldte1  ,Ldtc2 

900  PRINT  USING  -ISX.-'TC  are  defective  at  locations  *  * .OD ,4X .00* (Ldtc 1  ,Ldtc2 

910  ENO  IP 

920  IF  Idte>2  THEN 

930  9EEP 

940  PRINTER  IS  1 

950  SEEP 

960  PRINT  -INVALID  ENTRY- 

970  PRINTER  IS  701 

990  SOTO  540 

990  ENO  IF 

900  ENO  IF 

910  OUTPUT  9Fi la  I sLdtc  I  ,Ldts2 
920  IF  Hwnntu-I  THEN  SOTO  1 1 90 

930  INPUT  ’ENTER  NUM9ER  OF  OEFECTIVE  AUX  TCS  ( 0-OEFAULT  >*  .Aidtc 
940  IF  Aldtc-0  THEN 
950  Aidtc I *0 
950  Aldtc2"0 

970  PRINT  USING  -ISX.’-No  defective  AUX  TCs  exist'” 

990  ENO  IF 

990  IF  Aidtc-I  THEN 

1 000  SEEP 

1010  INPUT  -ENTER  DEFECTIVE  TC  LOCATION  (  9- 1 5 >" , Aidtc I 

1020  PRINT  USING  *16X,”TC  is  defective  at  location  ,00’ ;Aidtc! 

1030  Aldtc2-0 
1040  ENO  IF 
I0S0  IF  Aidtc-2  THEN 
.  1350  9EEP 

1070  INPUT  "ENTER  OEFECTIVE  TC  LOCATIONS  '  9-1 5  !" .Aidtc I  ,Aldtc2 

1090  PRINT  USING  -ISX.--TC  are  defactlva  at  locations  " * ,00 ,4X ,Q0‘ ; Aidtc I ,A ldtc 

1090  ENO  IF 
1100  IF  Aidtc. 2  THEM 
1110  9EEP 
1 ! 20  PRINTER  IS  I 
l ’ 33  SEEP 

1  • 10  PRINT  ’ INVALID  ENTRY ’ 

''50  PP INTER  IS  "01 
1 ’ 53  SOTO  540 
i ' "3  ENO  IF 
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•  t  3Q  OUTPUT  '3F  1 1  a  !  ;  S l d t  c  !  Aldto2 
I  1 90 1  In- !  op 1 1  on 
1 -22  ELSE 
I : ! 3  SEEP 

era  INPUT  'GIVE  THE  MAKS  OF  THE  EXISTING  DATA  FILE*  ,02_f i  leS 
* 233  PRINT  USING  'IS'.  "‘Old  fils  nane:  -- .14A* sOC_f t la* 

! 210  ASSIGN  3F ; Le2  TO  02_fileS 
! 250  ENTER  0F i le2 :Nrun 
1280  ENTER  9FUe2:0ald3 

!  279  PRINT  USING  *t6X.-‘This  data  sat  taken  on  :  “  *  ,  I  4A“  tOold* 

1 290  ENTER  SFils2:Ldtc! ,Ldic2  ,Ai Ids  1 ,Alldc2 
1290  IF  Ldtc  I  >0  OR  Ldt  =  2'.0  THEN 

1300  PRINT  US  I MG  " 1 SX ,* 'Thsrnocouplas  were  defect  tvs  at  Locations: ** ,2( 30  .4X  )* ; 
Ldts !  ,Ldts2 
1319  ENO  IF 

1329  IF  Hunntu- I  THEN  GOTO  I 3S9 

1330  IF  A 1  d  t  c  1  ’  0  OR  Aldtc2:0  THEN 

1  3<0  PRINT  USING  "1SX,""AUX  Thermocouples  were  defective  at  locat  ions :  *  “  ,2(  30  ,4 

X  >*  j.41dtc  1  ,Aldte2 

1 350  ENO  IF 

1 3S9  ENTER  0Ftls2: Itt 

1 370  ENO  IF 

1390  Idtc-0 

1399  .IF  Ldtcl  >0  THEN  Idtc-Idtc+I 
U00  IF  Ldtc2>0  THEN  Idts«Idtc+l 
14)0  IF  Hwnntu-I  THEN  GOTO  1440 

1429  IF  Aldtc I >0  THEN  Aidtc-Aldte*l 

1430  IF  Aldte2>0  THEN  Aidtc-Atdtp+1 
14401  IF  In-0  ANO  Ihn-I  THEN  1S95 

1 450  BEEP 

I4S0  INPUT  -UANT  TO  CREATE  A  PLOT  FILE?  < 0-N ,1 -V , Idiot 
1470  IF  Iplot-t  THEN 
1 490  9EEP 

1490  INPUT  "GIVE  NAME  FOR  PLOT  FILE' ,P_f lie# 

1500  CREATE  90AT  P_file«.4 
1510  ASSIGN  9Plot  TO  P_file3 
1520  ENO  IF 
1530  IF  Ihn-I  THEN 
1540  9EEP 

1550  INPUT  'WANT  TO  CREATE  Uo  FILE?  < 0-N .  1 -Y >•  , Iuf 
1560  IF  Iuf- I  THEN 
1570  BEEP 

1 580  INPUT  ’ENTER  Uo  FILE  NAME"  ,Uf  tlel 
1590  CREATE  BOAT  Uftle*.4 

1500  ASSIGN  9Uftls  TO  Uf I  Is* 

1510  ENO  IF 

IS 22  BEEP 

1539  INPUT  -UANT  TO  CREATE  Re  FILE7  < 0-N  ,  I -Y J*  ,  Ir- 
'S40  IF  Ire- I  THEN 
1SS0  .9EEP 

I  5B0  ’INPUT  "ENTER  Re  FILE  NAME*  , Ref  i  le'4 
1 670  CREATE  90AT  Psfilaf.lO 
1530  ASSIGN  3Ref l la  TO  R-ftle* 

IS 90  ENO  IF 

1720  EMO  IF 

I7!0  oor»|fcp  re  i 
1720  IF  In-0  THEN 
1 730  9SEP 

1  "10  PRINT  USING  -4X  -Select  tubs  luntjer""" 

'~E0  IF  ! hm-9  THEM 
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l  "S9 

PRINT 

USING  'SY,"9 

Smooth  4  inch  Ref'" 

1 77m 

PRINT 

USING  * SX  .  '  “  1 

Smooth  1  inch  Cu  ( Praaa/Sl ide ?" 

1739 

PRINT 

USING  *SX  . ' " 2 

Soft  Solder  4  inch  Cu ' '* 

1  799 

PRINT 

USING  "SY  , "3 

Soft  Solder  i  inch  HIGH  FLUX'” 

1  900 

PRINT 

USING  'SX,"1 

Uieland  Hard  9  inch'" 

1910 

PRINT 

USING  'SX,”S 

HIGH  FLUX  9  inch'" 

1920 

PRINT 

USING  'SX,"S 

GE’JA-K  40  Ftna/in"' 

1930 

PRINT 

USIN6  *SX  ,  * '? 

GE'JA-X  25  Fina/in”* 

1940 

PRINT 

USING  'SX  . "9 

GE’JA-T  19  F ins/ in'” 

I960 

PRINT 

USING  'SX  , "9 

GEUA-T  OR  SEUA-TY  26  Fins/in'” 

I960 

PRINT 

USING  'SX,"!0 

THERMOEXCSL-E”' 

1970 

PRINT 

USING  'SX  , * “  1  1 

THERMQEXCEL-HE'" 

1930 

PRINT 

USING  'SX  ."12 

TURGO-8  ”  * 

1990 

PRINT 

USING  'SX  ."13 

5EUA-K  19  F ins/ in”  ' 

1900 

ELSE 

1  910 

PRINT 

USING  'SX."0 

Smooth  tube"' 

1929 

PRINT 

USING  'SX  ."! 

High  Flux'” 

1930 

PRINT 

USING  "SX  ."2 

Turbo-8'” 

1940 

PRINT 

USING  'SX  ,  "3 

High  Flux  Mod”' 

1950 

PRINT 

USING  'SX."4 

Turbo-8  Mod'” 

1960 

ENO  IF 

1370 

INPUT 

Itt 

1990  OUTPUT  ®Fl 1st ; It t 

1990  ENO  IF 

2000  PRINTER  IS  701 

2910  IF  Itt<l0  THEN  PRINT  USING  '16X.“Tube  Number:  ”,D':ltt 

2020  IF  It t>9  THEN  PRINT  USING  '16X.”Tube  Number:  ”,00'ilit 

2930  IF  Ihm-I  THEN  PRINT  USING  'l6X.”Tube  Type:  *  *  .  1 5A' iTnS< 1 1 1  ) 

2040  SEEP 

20S0  INPUT  'ENTER  OUTPUT  VERSION  (0-CONS  ,  {-SHORT  ,2 -NONE  ,Iov 
29SO  9EEP 

2979  INPUT  ' SELECT  <  0-LIQ  ,  I -VAP  ,2-<  LIQ+UAP  >/2  )*  ,  I Iqv 
20991 

2090'  DIMENSIONS  FO  TESTED  TU9ES 

21001  ELECTRIC  HEATED  MOOE 

2110'  Ol-Olameter  at  thermocouple  positions 

2120  OATA  .01  I  I  1 25,. 01  I  I  125, .01  I  1 1 25 . .01 29S40  , . 01 244G  ,  .01 29S40 . .0100965 
2130  OATA  .0100965, .01 1S7..0I IS7..0I IS7  ,  .01157  ,  .01 157, .0100965 
2140  REAQ  Ola< •  ) 

2150  Ol-Ols(Itt) 

2160' 

21701  02-0lameter  of  test  section  to  the  base  of  fins 

2190  OATA  . 01 S975..01 5975,  .015375, .015924  ,.01 5975,. 01 5924,. 01 270 

2190  OATA  .0127, .0139, .0139, .0139, .0139, .0139, .0127 

2200  READ  02s( • > 

2210' 

2229'  0i-tnsi.de  diameter  of  unenhenced  ends 

2230  OATA  .0127. .0127, .0127, .0132, . 0127, . 0132, .0I1II2S. .0111125 
2210  OATA  .01 19  ,  .0119  ,.0! 19  ,  .01 19  ,  .91 19  ,  ,91 1  I  125 
2250  READ  Oia( •  ) 

2259' 

2279'  Oo-Outside  diameter  of  unenhanced  ends 

2230  OATA  .915375 . .9I59"5 , . 01 S97S , . 01 5924 , . 91 5975  ,  .015924 , . 91 270 , .91 2"0 
2230  OATA  .01331  ..91331  ,.91331  ..91331  ,.0153, .9127 
2300  REAO  0oa< • > 

2319' 

2329'  L-Length  of  enhanced  surface 

2  330  OATA  .1015. .1016, .'915. .1916  ,  .2032  . . 2932  . . 2932  ..2932  . . 2932  , . 2922  ,  .2932  ,  .29 
32  .  .2032  ,  .2932 

234(5  ocan  j /  •  > 
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2350' 

2369'  Lu-Langih  of  jnenharced  surface  at  the  ends 

3370  DATA  ,035a  ,  .3354  .  .0354  .  .035.4  ,  .07S3  ,  .0763  ..37S3  ,  .0753  ,  .3753  .  .3763  .  .0753  ,.37 
S3  .3753  .3763 
3390  REAO  Lual • > 

33991 

2 400 1  Kcu-Tharmal  Conductivity  of  tube 

3410  DATA  399,344 ,344 ,45 ,344 ,45,344 .344 ,399 ,399 .399 ,399.399 ,344 
2139  REAO  Kcual • > 

2420  IF  Ihm-I  THEN 


2140' 

2453' 

2460' 

2470 

2490 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2590 

2599 

2500 

2510 

2520 

2530 

3540 

2550 

2SS0 

2579 

2590 

2590 

2790 

2713 

2720 

2739 

2740 
2750 
2750 
2770 
2790 
r » ... 


Oata  statements  for  water  heating  mode 

DATA  3. 31 5975,0. 0IS37S  .3. 01  S3. 0.31 39. 0.0169, 9  ,0,0 .3,0 
RE AO  02a< •  ) 

OATA  0.0127,3.3127 ,3.0145 ,0.0 1 27 ,3.0145 ,3,3  .3  .3,0 
REAO  Dial •  ! 

OATA  3.915975  ,9.015375  ,9.3169  ,3.015975  ,9.3159  .3  ,0  ,0  .0  .3 
REAO  0oa<  • ) 

DATA  0.3049,0.3049  .3.3049  ,0.3049,0.3048.0  ,0,3, 3, 3 
REAO  La<  • ) 

OATA  0 . 0254  .3 . 0254  .0 . 0254  ,3 . 0254  .0 . 0254  .0 ,0  .9  ,0  .9 
REAO  Lua< • > 

OATA  398, 45. 399, 4S. 399  ,0,3  .0,9  .3 
REAO  Keua( •  1 
END  IF 
02 “02 a < It* > 

Ot-Ota<  It*.  ) 

Oo-Qoal  1 1 1  > 

L-La(  It*.  ! 

Lu-Lua<  lit  ) 

Kcu«Kcua<  It*  ) 

Xn-.9 

Fr-.3 

IF  Itt-0  THEN  Cf-1 .73E“9 

IF  Itt>9  THEN  Cf-3.7037E*I0 

A»PI *<  0o‘2-0t "2 >/4 

P-PI»Oo 

IF  Ihn-1  THEN 

SEEP 

INPUT  "TUBE  INITIATION  MODE.  (I -HOT  WATER  ,2-STEAM  ,3-COLO  WATER)". It  in 
IF  Ittn-I  THEM  PRINT  USING  "ISX."*Tube  Initiate:  Hot  Water**’ 

IF  Itim-2  THEN  PRINT  USING  *ISX,**Tube  Initiate:  Steam"** 

IF  Itlm-3  THEN  PRINT  USING  *ISX,*"Tube  Initiate:  Cold  Water*** 

INPUT  ’TEMP /'.'EL  MOOE:  ( 0-T-CONST  .U-OEC :  I -T-OEC  .U-CONST :  2-T-tNC  .U-CONST  ) *  , 


2799  IF  I tv-0  THEN  PRINT  USING  " 1GX  , * "Temp/Vel  Mode:  Cons tant /Oecreas mg" * " 

2900  IF  Itv-I  THEM  PRINT  USING  " ISX  ,"*Temp/Vel  Mode:  Oecreas mg/Constant ** " 

3910  IF  Itv-2  THEN  PRINT  USING  * ISX  , * ’Temo/Vel  Mode:  Increas mg/Constant ** * 

2923  INPUT  *UANT  TO  RUN  WILSON  PLOT?  (  1 -V ,0-N )*  ,  lull 

2920  IF  Ihm-I  ANO  Iutl-0  THEM 

2940  IF  Itt-0  THEN  Cl -.332 

2953  IF  lit- 1  OR  1 1  * -3  THEN  Cl -.359 

2950  IF  Itt-2  OR  It*. -4  THEM  C:-.062 

29“9  SEEP 

2999  INPUT  "ENTER  Cl  • OEF :  WH-.932  .HF-.3S3 . T9-.362 ?*  ,Ci 
2990  ORINT  USING  '  1 o X  ,  'Sieder-Tate  "** 

2930  PRINT  USING  '  1 5X  .  '  “  Constant  -  *,2.40":Ci 

2919  EMO  IF 
2929  ENO  IF 
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;g30  IF  IHn»(  JiMO  In-!  AMO  Iuil*l  THEM 
0943  IF  Itt-0  'HEN  Ci» . 032 
0953  IF  ttt-l  OR  Itt-3  THEM  Ci-.3S9 
0953  IF  !tt-2  OR  Iti-4  THEN  Ci-.360 
0973  ASSIGN  9File2  TO  • 

0990  CALL  W;lson(Cf  .Ci  ! 

0990  ASSIGN  9Fi 1*2  TO  02_>riial 

3030  ENTER  0Fsl92sNrun.QoldS.LdtcI.Lelts0.Itt 

3010  END  tF 

3020  N*ub*0 

3030  IF  !do-4  THEN  Ihn-I 
3040  IF  Ihn-I  THEN  Nsub-9 
3050  Ntc-S 

30S0  IF  Ihn-0  THEN  Ntc-03 

3070  J-l 

3393  3**3 

3090  Sy-0 

3130  Sxs-0 

3110  Sxy-0 

3120  Raoeat :  I 

3130  IF  In-0  THEN 

3140  Otld-2.22 

3150  Ido-2 

3150  ON  KEY  1,15  RECOVER  3120 
3170  PRINTER  IS  1 

3190  PRINT  USING  *4X.* ‘SELECT  OPTION- ** 

3190  PRINT  USING  "6X.**0-TAKE  QATA" 

3200  IF  Ihn-0  THEN  PRINT  USING  -SX,--1-SET  HEAT  FLUX'" 

3210  IF  Ihn-I  THEN  PRINT  USING  -SX,--I-SET  WATER  FLOU  RATE" 

3220  PRINT  USING  -SX.- "2-SET  Taaf- 

3230  PRINT  USIN6  ‘SX.- ’3-SET  AUX  HEAT  FLUX*** 

3240  PRINT  USING  -IX. --NOTE:  KEY  I  -  ESCAPE* ’’ 

3250  BEEP 

3250  INPUT  Ido 

3270  IF  I do > 3  THEN  Ido-3 

3290  IF  Ido-0  THEN  5290 

32301 

33001  LOOP  TO  SET  HEAT  FLUX  OR  FLOWMETER  SETTING 

3310  IF  I do- I  THEN 

3320  IF  Ihn-0  THEN 

3330  OUTPUT  ->09«'AR  AF20  AL21  URS" 

3340  BEEP 

3350  INPUT  -ENTER  OESIREQ  OdtJ-.Oqdo 

3350  PRINT  USING  "4X  .-"OESIREQ  Qdo  ACTUAL  Qdp""’ 

3370  Err- 1000 

3390  FOR  I -I  TO  2 

3390  OUTPUT  709 : " AS  3A" 

3400  Sun-0 
3410  FOR  Jt-I  TO  S 
3420  ENTER  739 sE 
3430  Sun-Sun+E 
3440  NEXT  Ji 

3450  IF  I-l  THEN  Vo l *. -Sun'S 
3460  IF  1-2  TH£N  Anc-Sun.'  5 
3470  NEXT  I 

3490  Ano-ASSCAro-l .9192 ’ 

3490  Vo l l-ABS<  Vol t *25 ' 

3530  Aq-s -Vc 1 1 •Anq/ '  P I *02  *L 
-C|n  re  Age;  aqdo-DqOo  •  5--  ruF-' 

3520  IF  Acds.Oadc  "HEM 
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2539  9SE?  4929  , . 2 
3540  SEEP  4032,  .3 
3550  9EEP  1000,. 2 
3550  ELSE 
3573  SEE?  253,-2 
3530  SEEP  350,. Z 
3590  9EEP  350 ’,.3 
3S00  END  IF 

3S!0  PRINT  USIN6  '4X ,M2 . 3DE  ,2X  ,MZ .30E“ :Oado  , Aadp 

3530  UA IT  2 

3530  SOTO  3390 

3540  ELSE 

3550  SEEP 

3550  PRINT  USING  * 4X  ,MZ . 3CE  ,2X  ,MZ .30E* :Oado  , Aodo 

3570  Err-500 

3590  •  UAIT  3 

3590  50T0  3390 

3700  SMO  IF 

37 ! 0  ELSE 

3720  SEEP 

3730  INPUT  ’ENTER  FLO'JMETER  SETTING" .Fns 

3740  SOTO  3190 

3750  ENO  IF 

3750  ENO  IF 

37701 

37901  LOOP  TO  SET  Tsat 
3790  IF  Ido-2  THEN 
3900  IF  Ikdt-I  THEN* 3950 
3910  SEEP 

3920  INPUT  -ENTER  OESIREO  Tsat  ^.Ot Id 

3930'  PRINT  USIN6  *1X,”  OTsat  ATsat  Rata  Tv  Rata”* 

3919  Ikdt-t 
3950  Oldl-0 
3950  Old2-0 
3970  Nn-I 
3990  Nrs-Nn  MOO  IS 
3990  Nn-Nn+I 
3900  IF  Nrs-I  THEN 

3910  IF  Ihn-0  THEN  PRINT  USING  *4X,”  Tsat  Tldl  Tld2  Tv 

3929  IF  thn-l  THEN  PRINT  USING  *4X,”  Tsat  Tldl  Tld2  Tv  Tsunp 

t  Tot  la  Tout*" 

3930  ENO  IF 

3910  IF  Ihn-0  THEN  OUTPUT  709; *  AR  APIS  AL19  VRS* 

3950  IF  Ihn-I  THEN  OUTPUT  709; 'AR  AF0  ALS  UR5* 

3950  FOR  I- I  TO  5 

3970  IF  Ihn-0  ANO  I >4  THEN  4210 

3990  Surt-0 

3990  OUTPUT  709; MS  SA" 

1000  FOR  Jt-I  TO  20 
4019  ENTER  709;El la 

4029  Sun-Sun+El;a 

4030  NEXT  Ji 
4040  El  ig-Sun/29 
1053  TId-cNTvav( El iq  ) 

1250  IF  I-l  THEM  Tldl-Tld 

40-0  IF  1-2  THEM  Tld2-rld 

4090  IF  1-3  THEM  T . - T l d 

4090  IF  I *4  rH£M  rsuna-''Id 

4100  IF  !-c  THEM  Tinlat-Tld 


T  auno 
T  tnle 
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4!  irj  IF  1-6  THEM  Taut-rld 

4!0O  NEXT  I  * 

4! 00  IF  Ihn-I  THEM 

1!  43  OUTPUT  709 i "  AR  AF30  AL0O  VRS" 

1150  OUTPUT  739t'AS  SA" 

1 1  S3  Sun-0 

4170  FOR  Kk - 1  TO  00 

4190  ENTER  709 :£ 

4190  3un-Sun+£ 

4000  NEXT  Kk 
4010  Enf ' 7  l-ASS! 6un/20 1 
4203  Tg  1 1 a-Enf  <  7  3 . 96E- l 

1000  ENO  IF 

4010  Atld-< Tldl *TIdO J«.S 
tO50  IF  ASSIAtld-Otld)  .2  THEN 
42S0  IF  At  ld-'Ot  Id  THEM 
4273  SEEP  1000..: 

4290  SEEP  4000  ..2 
4290  9EEP  400O..2 
4000  ELSE 
4010  SEEP  250..: 

4320  BEEP  250,. 2 
4330  SEEP  250.. 2 
4340  ENO  IF 
4350  Errl-Atld-Oldl 
4360  OldlnAtld 
4370  ErrO-Tv-QId2 
4390  01d2-Tv 

1390  IF  Tldl >100.  THEN  4440 

4100  IF  Ihn-0  THEN  PRINT  USING  ’4X  ,S( M000.00  ,2X ! ” ;0t Id .Tldl  ,Tld2  .Tv  .Tsunp 
1410  IF  Ihn-I  AMO  Idp-0  THEN  POINT  USING  '4X  ,?<  M00.00  ,2X  >*  :Ot  Id  .Tldl  ,T  ld2  .Tv  ,Ts 
uns  .Tinlat .Tpila 

4420  IF  Ihn-1  AND  Idp-4  THEM  PRINT  USING  " IX ,5< MOO .00 ,2X 1 .0( MID . DO  ,2X > * : Ot l d  ,  T l 

d!  ,Tld2  .Tv .Tsunp .Tinlat , Tpila. Tout 

4400  UAIT  2 

4440  GOTO  3990 

4450  ELSE 

4460  IF  48S<  At Id-Ot Id  )> . I  THEN 
4470  IF  At ld>0t Id  THEN 

4490  seep  0000 . . : 

4490  9EEP  3O00..2 
4S00  ELSE 
4510  9EEP  300,. 2 
1520  SEEP  900,. 2 
4500  ENO  IF 
4510  Erri-Atld-Oldl 
1550  Old! -At  Id 
4553  Err2-T.-01d2 

IS^O  0ld2-T'/ 

1590  IF  Ihn-0  THEN  PRINT  USING  * IX ,S< MOOD . 00 .2X ?* :0 1 Id  .Tldl  . T ld2  .Tv  .Tsunp 
4S90  IF  Ihn-I  THEM  PRINT  USING  "4X ,5( MOO .00 ,2X 1 .31 N30 .00 . 1  X  1* ;Qt Id  .Tldl  . Tld2  .Tv 
, Tiuho  . Tinlat  .TQila.Taut 
1530  UAIT  2 
1613  GOTO  0930 
1523  ELSE 
1623  SEEP 

1540  Er— ' «*t ld-01di 
1553  Oldl-Atid 
1553  -Er— 2- T .--01  d2 
1673  0 1  d 2  * T 
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1630  I?  I hr.— J  THEN  PRINT  USING  " 4X  ,  =  (  NCQD  .00  ,2'.'.  ! “  ; 0*.  Id  ,T  1  d!  , T  IdO  ,T  , T*umo 

iS30  IP  Ihn-!  THEN  PRINT  USING  "4X  ,9<NC0.G0  ,2X  >' tOt  id  .Tld!  .T>d3  ,Tv  .Tsurtp  ,Tinl«l 

,  T  -  1 1  s  ,  Tcu  t 

4”00  'JR IT  0 

1712  GOTO  0999 

•1709  END  IP 

4700  ENO  IF 

4719  ENO  IF 

47S0  ' 

4750 '  LOOP  TO  SET  AUX  HEAT  FLUX 

1770  IF  Ida-3  THEN 

1730  IF  Ihn-0  THEM 

4790  oor.uT  *  3£T  VOLT  SOX  TO  AUX" 

4900  OUTPUT  799s "AR  AFO0  ALSO  VRS' 

49! 9  SEEP 

4809  INPUT  "ENTER  OESIREO  RuQdc * .Quxqdp 

4930  PRINT  USING  "OX  .'"OESIREO  AuxQdp  ACTUAL  AuxQdp"" 

1810  Err- 1  000 

19S0  FOR  I- I  TO  3 

48S0  OUTPUT  709s "AS  SA“ 

4970  5uxi-0 
4880  FOR  Jt-t  TO  S 
4990  ENTER  709 i E 
4900  Su«-Sun+E 
49 1 9  NEXT  Ji 

4900  IF  I-l  THEN  'Jolt-Sun/S 
4930  IF  t-3  THEN  Anp-Sun/S 
1940  NEXT  I 

4950  Anp-A8STAnp*f.9/92.‘ 

I960  Uolt-AgS(UolfOS) 

4970  Auxqdp-Uol t •Arp/ ! P I *02 *L  ! 

4990  IF  A9S<  Auxqdp-Ouxqdp  I'Err  THEN 

4990  IF  Auxqdp-Ouxqdp  THEM 

S000  BEEP  4000,-0 

S010  9EEP  4000.. 2 

5000  BEEP  4000.. 2 

5030  ELSE 

5040  3EEP  250.. 2 

5950  9EEP  250.. 2 

5050  9EEP  250,. 2 

5070  ENO  IF 

5080  PRINT  USING  "4X  ,t1Z . 30E  .OX  ,MZ . 30S" sOuxqdo ,  AuxQdp 

5090  UAIT  2 

5100  GOTO  4850 

5110  ELSE 

5109  8EEP 

5 !  30  PRINT  USING  - 4X  ,nl . ODE  .OX  ,NZ . JOE' s Quxqdp  .Auxqdp 

5140  Err-900 

5150  ’JAIT  0 

5150  SOTO  1850 

5!  79  ENO  IF 

5190  GOTO  3190 

5! 90  ENO  IF 

5090  ENO  IF 

SO ! 9 1  EPPQR  TRAP  C0R  Ido  OUT  OF  SOUNDS 

5009  IF  !do.3  rHEU 

5009  SEEP 

5040  GOT0  3! 92 

5053  ENO  IF 

50S31 
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5C?3'  TAKE  OAT*  IF  In-0  LOOP 
5390  IF  Ikal-I  THEN  5303 
5339  9ESP 

=  390  INP'JT  "ENTER  9ULK  OIL  5"  ,9cp 
5319  Iksl-I 

5339  IF  Ihn-9  THEM  OUTPUT  799: "AR  AFG3  ALI9  UPS" 

5339  IF  !hn-l  THEN  OUTPUT  793 i “AR  AF0  ALE  URS" 

5349  IF  Ihn-9  THEN  Nts-39 

5350  FOR  I- I  TO  Ntc 
S3S0  OUTPUT  709: "AS  SA" 

5370  Sun-9 

5390  FOR  Ji-1  TO  30 

53 99  ENTER  709 :E 

5400  Sun-Sun+E 

S4!0  IF  I»( I 7-Nsub  )  OR  I-H9-Nsub>  THEN  Et (J t-l  !-E 

5439  NEXT  Ji 
5430  Kdl-0 

5440  IF  I-<I7-Nsub>  OR  I-'I9-Maub>  THEN 
5450  Eave-Sun/30 

S4S9  Sun-0. 

5470  FOR  Jk-0  TO  19 

5490  IF  A8S<EtUk)-Eave!<S.0E-S  THEN 

5490  Sun-Sun+EttJk > 

5500  ELSE 
5510  Kdl-Kdl+I 

5539  ENO  IF 
5530  NEXT  Jk 

5540  IF  I-<  1 7-Naub !  OR  I-<I9-Nsub>  THEN  PRINT  USING  "4X."*Kdl  -  •*.OD*:Kdl 
5550  IF  Kdl> 1 0  THEN 

5550  SEEP 
5570  SEEP 

5590  PRINT  USING  "4X,"*Too  nuch  scattering  to  data  -  reoeat  data  sat**" 
5530  SOTO  3179 
5500  ENO  IF 
SS!0  ENO  IF 

5530  Snfll  >-Sun/(20-Kdl  > 

5S30  NEXT  I 

5640  IF  !hn-l  THEN 

5650  OUTPUT  709: "AR  AF00  AL00  VR5" 

5660  OUTPUT  709: "AS  SA' 

5670  Sun-0 

5680  FOR  Kk-I  TO  30 

5530  ENTER  709 :E 

5700  Sun-Sun+E 

5710-  NEXT  Kk 

5733  Enf '  7 )*A0S( Sun  )/30 

5730  ENO  IF 

5710  IF  Ihn-0  THEN 

5750  Caun-O. 

5750  OUTPUT  739; "AR  AF33  AL33  URS" 

57""0  FOR  I- 1  TO  3 
5790  OUTPUT  709: "AS  SA" 

5790  Sun-0 
5300  FOR  j;.i  TO  5 
59 !0  ENTER  *99 :E 
5939  Sun-Sun+E 
5930  NEXT  I: 

5919  IF  Oaun-O.  THEN 
=  953  ;c  t,i  thcm  c 

5959  IF  [-3  THEN  Ir-Sun.-S 
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=3"3  ELSE 

5333  IF  Is!  THEM  Avr-Sun/S 

5933  IF  1-3  THEN  Air-Sun.'S 

cagg  cmQ  IF 
59!  3  me:<t  I 

5333  IF  Hunntu-I  THEN  50T0  53! 3 

5933  IF  Caurt-3  THEM 

5913  PRINT  'SHIFT  'JOLT  9GX  TO  AL'X" 

5953  END  IF 

S9S3  IF  Court" I  THEN  SOTO  S333 

5973  INPUT  "TAKE  AUX  READINGS! !-VES  ,Ccsn 

5990  Caun-Caun+Caan 

5390  GOTO  5773 

E003  5NQ  IF 

£313  ELSE 

S033  IF  Ihn-0  THEN  ENTER  3F  Ua2  ;9oo  ,  Told*  ,E*f  (  •  !  ,Ur  ,  Ir  ,Avr 

5030  IF  !hn-l  THEN  ENTER  9F t la2 ;9op . Toldi .Enf ( *  )  ,Fns 

5343  SNO  IF 
5050 1 

5063 1  CONUERT  artf'S  TO  TEMP  .VOLT  .CURRENT 

5070  Tua-0 

5390  Atua-0 

S090  FOR  I-l  TO  Ntc 

5130  IF  Idte.'O  THEN 

5 1 ! 0  IF  I-Ldtal  OR  I-Ldia2  THEN 

5123  T< !)— 99.39 

5130  50T0  5303 

6140  EMO  IF 

6150  ENO  IF 

6160  IF  Hwrmtu-I  THEN  SOTO  6230 

5170  IF  Aldtc>0  THEN 

6190  IF  I-Aldtc!  OR  I-Aldtc2  THEN 

5 1 30  T(  I!— 93.99 

6200  GOTO  5330 

6210  ENO  IF 

6220  ENO  IF 

5220  IF  1 1  ‘<-4  AND  Ihn-0  THEN 

6210  IF  I?  4  AND  I<:9  THEN 

6250  T<  I!— 99.99 

S2S0  GOTO  5300 

5270  ENO  IF 

6290  ENO  IF 

5290  T(  I  )-FNTvsv< Enf (  I  ) 

6330  NEXT  I 

S3!3  IF  Itt<4  THEN 

5323  FQR  I-l  TO  4 

5333  IF  I-Ldtc I  OR  I-Ldia2  THEN 

5240  Tua-Twa 

5353  ELSE 

5353  Tua-Tua+T' I  ! 

5373  ENO  IF 
5293  NEXT  I 
5393  Tua-Tua/<  4-!dta  > 

5400  ELSE 

54! 3  [F  Ihn-l  THEN  5S0G 

5423  FOR  I-l  TO  9 

5433  IF*  I-Ldtc!  OP  I-Ldtc2  THEN 

5440  'jj-r  ja 

54=0  ELSE 

5453  T -jj-f'jj *•  T1  I  i 
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S4'3  ENO  IF 

5490  NEXT  I 

Si 93  Ta-Tua. ' 9-ldtc  • 

gegg  re  uunnta*l  THEN  S0T0  SS09 

SSI 9  POP  1*9  ro  is 

5552  IP  I'Aidicl  OR  I*AIdkc2  rHE',l 
SS30  Ataa*Ata  a 

5540  ELSE 

5553  A».aa-A‘.aa*T<  I  ) 

SSS0  ENO  IF 

5573  MEVT  I 

5530  Ata-Atua/' 9-Aidts > 

SS90  ENO  IF 

SS00  T 1 d"T( I 7-Mjub  ) 

ssi0  rtd:*rM9-*isub  ? 

5523  T'.da-'  Tld+Tld2  )*.S 

6630  Tv*T ( 1 9-Nsub  > 

SB40  IF  1 1 1  •.  3  ANO  !hm-3  THEN 

S6S9  Tld2— 99.99 

SSS0  Tv«(  T<  10  >*T<  I  I  >  >/2 

5670  ENO  IF 

SS90  Taump»T( 20-Naub  ) 

6590  IF  Ihm-0  THEN  6720 
6700  Tlnlat-T< 13-Nsub ) 

S7I0  Tqut«T(  14-Nsub  > 

5720  IF  lhm«0  THEN 
5730  Amp-A83C If  1.9192) 

5740  UpIt«A8S<Vr  ? »2S 
67S0  Q-Vo l t •Amo 

S 750  IF  Hwrnntu-!  THEN  SOTO  5900 
6770  Auamp*A9$( A ir • I .9192  I 
5790  AUvolt-A9S<Avr )*2S 
5790  Auq-Auvolt*Auamp 
5900  ENO  IF 

5910  IF  Iit-0  ANO  Ihm-0  THEM 

5929  Kcu-FNKsu(Ta) 

6930  ELSE 

5940  Kcu-Kcual I  *  t ) 

69S0  ENO  IF 
5960> 

69701  FOURIER  CONDUCTION  EQUATION  'JITH  CONTACT  RESISTANCE  NE6LECTE0 
5990  IF  lhm-0  THEN  Tu-Tm-Q*L06< 02/01  >/I  2»P!»Ksu*L  ) 

6990  tf  .Iwmntu-!  THEN  SOTO  S9I9 

5909  IF  lhm*0  THEN  At««Atu-Auq»L0G(02/0l  >/(2*PI*Kcu*L > 

S3! 0  IF  ILqv-0  THEN  Taat-TIda 
5920  IF  Ilqvl  THEM  Tsat-Tv 

5930  IF  IIqv-2  THEN  Tsa».-<  TIda*Tv  ! . .  5 
5940  IF  Ih*-t  THEN 

69S0  Tavg-Tirlsk 

S950  6rsd*37 . 3953^ . ( 34399*  Tjvq 

5970  Tdrqp-ABS!  E«f I  7  *  >• I  .S*S/<  !0»5rsd> 

5999  Tsvgc-Tml-t-Tdrqp*  .5 

5399  IF  A9S<  Tjvq-Tsvqc  >:  .0’  THEN 

“000  Tavg-' Tavg-Tavgs >• .S 

“919  SOTO  S960 

itj2 3  ENO  IF 

'933' 

“040 1  COMPUTE  ,JArE:5  oo0PPP'r!ES 
'350  IF  Ihm-’  racu 
'OSO  i-a*P*!F-j'  r  1  v  q 
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7079  flu-3 ■FMMuw.  T avg  > 

"393  Cpu-FMCpu'.Ta-.g! 

“390  Pry-FNPru' Tavg  ! 

7130  9heu-FNfihaw< Tavg  > 

7 ! ! 3  Tai-Tavg  # 

~ '  :a » 

“  ?  33  1  Compute  MOOT 

7!  13  Mdsi-3.3S57S-3-‘-Fns*'  3 .5 1  3SSE-3-crn •'  3 . 3233EE-S-Cna •(  I  . 23S39E-7-Fma •-» .  3 1  99 

C- 10)); 

71  S3 1  Mdot-Mdot •< I .33S5-T inlai •( 1 . 9SS44E-3-T inlat *5 . 2S2E-5 >  !/1 .0037 

7! S3  Kdi-3 

7173  Q-Ndpt *Cpw»Tdrop 

7190  Lntd“Tdrop/LQ5( 1 Tinlat-Tsat !/( T inlet -Tdrop-Taat  )  1 
7190  Uo-0/( PI •0c*L*Lntd  ) 

7330  Ru-0o*L0G<0o'0i  >/'  3  .  *Kcu  ! 

7310  Ta-Tsat+FrMntd 

7233  '.>w-Mdot/(RhowPI*0i-:/4 ) 

7230  Rew-Rhau«Uu»Oi/Muua 

7240  Hi*C  t  *Ku/0t •Reu ' .9»Pru*( 1/3.  >♦(  Muua/FNt1uu( Tut  >  >* . 14 
72S0  Tulc*Tavg-Q/!PI*Oa»L»Ht  > 

72S0  IF  A8S( Twi-Tuic >> .31  THEN 

7270  Tui-(  Tut  +  Twte  .5 

7293  SOTO  7240 

7290  ENO  IF 

7300  Tw t •< Tul+Twis  > • .5 

7310  Ho- 1/(1 /Uo-Op/ ! 0 1 *Hi  !-Rw  ) 

7323  END  IF 

7330  ENO  IF 

7340  IF  Ihn-I  THEN 

7350  Thetab-Q/(Hc»P!*t?S*L  > 

7360  Tu-T*at»Thetab 

7373  ELSE 

7393  Thatab-ru-Tsai 

739!  IF  Hymntu-I  T.ucN  SOrO  7400 

7393  Athetab-Atu-Tsat 

7433  ENO  IF 

7410  IF  Thetab'0  THEN 

7423  SEEP 

7430  INPUT  -TUM.L-.TS  AT  (  0-CONTIML'E  .  !-EM0!',Iev 
7443  IF  lav-3  THEN  GOTO  3130 
74S0  IF  lav- I  THEN  9930 
74G0  ENO  IF 

7470  IF  Hwnntu-I  THEM  GOTO  7540 
7490  IF  Athetab<0  THEN 
7493  9EEP 

“503  INPUT  "MIX  T'JALLITSAT  O-CONTINUE.  I -EN0 !”  ,Aiev 

7510  IF  Aiav-0  THEM  GOTO  3133 

7523  IF  A  lev- 1  THEM  3930 

“530  EMO  IF 

“5401 

75S01  COMPUTE  '.’ARIOUS  °POPEPTIES 
75S0  T*:ln-( Tu+Tjat  )».S 

7573  Rho-cMRho( TP i In  > 

7533  Nu-FNMut  T»  i  l.-t : 

'’533  K-FNK'  Tfiln) 

7530  Cp-FMCpI r P : lr 1 
T5 ! 3  9eta-FMBata( T?i In  ' 

“523  ui-,CM)4fg(  r«at  ) 

“5  23  'll  aNu .  °ho 

i  «h  '  i 


95 


7553  Pr  *M  t .  A  Ipha 
7553  Rsat-FNPsat'Tsai  > 

"S“3  1 

7533'  COMFUTE  VARIOUS  OROFERTIES  FOR  AUX  TUBE 

7590  IF  Hanntu-I  THEN  SOTO  7793 

7733  At f i ln"( Atu+Tsat > •  .  5 

7710  Arho-FMRha(  Atf 

7733  Anu-FNHu< Alf tin! 

7733  Ak -FNK (  At  ?  t  I.-i ! 

7713  Acp-FNCp< At* tin! 

77S0  Abeta-FMSata( Atf iln! 

77S0  Ant -Amu/ Ar ho 

7770  AalBha“Ak/( Arho-Acp > 

7790  Apr«Aru/Aalpha 
77931 

7900'  COMPUTE  NATURAL -CONVECTIVE  HEAT-TRANSFER  COEFFICIENT 
79 ! 0 !  FOR  UNENHANCED  ENO< S  ! 

7933  Hbar-193 

7930  Fa-(Hbar*P/(Kcu*A  >  !~.S«Lu 
7913  Tanh«FNTanh( Fa ) 

7950  Thata"Thatab»7anh/Fa 

7950  Xx»<  9.9t •0ata»Thetab»Oo'3»Tanh/<  Fa»Ni ‘Alpha > )“  .  ISSSG7 
7373  Yy-< l+( .SS9/Pr  >*( 3/ 15  )  >*<9/27  > 

7390  Hbare-K/0a«< .S*.397»X*/Yy ! *2 

7990  IF  ABSf  <Hbar-Hbare  l/Hbara  >>-.00l  THEN 

7900  Hbar-<Hbar+Hbars!*.S 

7910  SOTO  7930 

7920  END  IF 

79331 

7910’  COMPUTE  NATURAL -CONVECTIVE  HEAT -TRANSFER  COEFFICIENT 
7950'  FOR  UNENHANCEQ  END'S!  FOR  AUX  TU9E 
7950  IF  Hunntu-I  THEM  SOTO  9090 
737 0  Ahbar-190 

7990  Fs“( Ahbar  *P/ ( Kcu*A  !  r.S’Lu 
7990  Atanh"FMTanh( Fa  ! 

9000  Athata“Athatab*Atanh/Fa 

9010  Axx«<  9.9 1 •Abeta»At hetab*Oo *3»Atanh/( Fa»Ani »Aalpha  >  >* . I B6SS7 
9020  Ayy-(  I  ♦(  .559/ Apr  !*(  9/ IS  !  )*<9/27> 

9030  Ahbarc*Ak/Oo*< . S+ . 397«Axx/Ayy  >*2 

9040  IF  A8S( ( Ahbar-Ahbarc  !/Ahbare  )> . 301  THEN 

9350  Ahbar«( Ahbar+Ahbaro  !» .5 

9050  GOTO  7980 

9070  END  IF 

9390 1 

9393'  COMPUTE  HEAT  LOSS  RATE  TH  M.'GH  UNENHANCEQ  ENO' S  > 

9!  00  Ql*'Hbar»P*Kcu*A!*.S»Thatab»Tanh 
9H3  Oc-O-2-Ol 
3123  As»ot.03»l 
3130  1 

9140  'COMPUTE  HEAT  LOSS  RATE  THROUGH  'JNENHANCED  ENO<  5 !  OF  AUX  TUBE 

9150  IF  Humntu-1  THEN  GOTO  9190 

9153  Aq 1 »' Ahbar »P •Kcu’A  !  ’  .5*Athetab*Atanh 

9 1  70  Aqc-Aaq-2'Aql 

9  I  93 1 

9' 93'  COMPVE  ACTUAL  '•'EAT  t"_'JX  AMO  SOILING  COEFFICIENT 

9200  0do*0c,aa 

3210  Htaba*'0do/ Tha  t  ao 

3223  C»f’<  Co*rhsl  ib.-u*3  Qda/ '  Mu*Hf  q  .  31  »  '3.9' *°h-  .5  '!  3.  ).Pr 

9220’ 

92S31  C0MPUrE  ACTUAL  uEAT  cLVv  aN0  SOILING  COEFFICIENT  C0R  AUX  rUBE 
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9350  IF  Hunntu-I  THEN  GOTO  9093 

9023  AuqdP-Aqc  /  -9a 

92T3  Ahtube-Auqdp/Athetab 

9033  Acs  f  -<  Acp  »At hetab.'Hfg  )/'  Auqdp.'t  Anu*Hfg  ;♦(  . 3!  4/'  9. 9 1  »Arhq  )  "  .5  )  <  I  / 3  .  !*Apr  '  I 
r  * 

9093' 

9333'  RECORD  TIME  OF  DATA  TAKING 
9313  IF  In-0  THEN 
9303  OUTPUT  739  s’  TO" 

9333  ENTER  709 {Told* 

9340  END  IF 
93S0 ' 

93S0 '  OUTPUT  OATA  TO  PRINTER 
9373  PRINTER  IS  701 
9333  IF  Iov-3  THEN 
9390  PRINT 

9430  'PRINT  USING  -l0X,”Oata  Sat  Nunber  -  *  *  ,000  ,3X  . ‘  “9ulk  Oil  T.  -  •*  .00.0  ,SX  .  I 
4A-iJ.9op.Tald* 

9410  PRINT  USING  *  1 0X  , "  "Oata  Set  Nunber  -  *  *  ,000  ,2X  ,*  "Bulk  Oil  %  -  '  *  ,00.0” :  J  .0 
op 

9403  PRINT  ’  TIME: *  ,TIM£*<  TIMEQATE ) 

9430  IF  Ihm-0  THEN 

9440  PRINT  USING  #I0X,”TC  No:  I  2  3  4  5  B  7 

3  *  "  * 

9450  PRINT  USING  *10X,**Tanp  :  *  *  ,9(  I X  ,M00.00  >*  :T(  I  !  ,T<  0  )  ,T(  3  >  .T<  4  !  ,T(  S )  ,T(  6  !  ,T< 

7 ! ,Tf  9  ! 

9451  IF  Hwnntu-I  THEN  GOTO  9490 

9460  PRINT  USING  -10X. ”TC  Ha:  9  !0  I  12  13  14  IS 

IS"*" 

9470  PRINT  USING  *  1 0X  .  *  “  Teno  :  "  ’  ,9(  I X  .MOO. 00  !*  i  T<  9  >  ,T(  1 0  !  ,T(  I  I)  ,T<  1 2  )  ,T(  1  3  !  ,T(I 
4  !  ,T(  IS!  , T (  IS  ) 

9493  PRINT  USING  *10X.”  Tua  ATua  Tlsqd  TI:qd2  Tvapr  Psat  Tsunp”* 
9490  PRINT  USING  "  1 0X ,3( MOO. 00 , 1 X ! , I X . MOO. 00 , 1 X ,2< IX , MOO. 00 ) ,2X .MOD .0" i Tu  ,Atu , T 
Id ,Tld2 ,Tv ,Psat .Tsuno 

9500  PRINT  USING  '10X,”  Thetab  Htube  Qdp  Athetab  Ahtubs  AuOd 

p”" 

9510  PRINT  USING  * I0X  .MOO . 30 , 1 X ,MZ . 3DE . I X ,M2 . 30E . I X .MOD. 3D . I X .M2 . 30E . I X ,MZ . 30E' 
s Thetab .Htube ,Qdp , Athetab  .Ahtube  .Auqdp 
9520  ELSE 

9533  PRINT  USING  *10X,”  Fns  Uu  Tset  Tin!  Tdroo  Thetab  q  'Jo 

Ho"” 

9540  PRINT  USING  -I0X  ,4<20.00,IX),Z.30.IX  .OD.OO.IX  ,3(MZ.30E,IX  I’iFna  .Uu.Tsat  .Ti 
nlet .Tdrop .Thetab  .Qdp  ,Uo  .Ha 


9550 

END  IF 

95S0 

ENO  IF 

9573 

IF  Iav-I  THEN 

9590 

IF  J-l  THEN 

9530 

PRINT 

9600 

IF  Ihn-0  THEM 

9BI0 

PRINT  USING  ” 1 0X  .  *  *  RUN  No 

OllX  Tsat  Htube 

Qdp  Thetab'” 

9E03 

ELSE 

9633 

PPINT  USING  ' I3X  .  FMS 

OILS  TSAT  HTUBE 

OOP  THETAB 

9S40 

ENO  IF 

9S53 

EMO  IF 

9ES3 

rc  [hn.g  tucm 

9S‘3 

k  eH 

op  INT  USING  -  'OX  .30, 4X  .00  .0 

:<  , NOD. 00  ,Z'  '  :<  ,MZ  .  ODE  > 1 

:  J  ,9  op  .Tsat  .Htube  ,3  do  .  Th< 

1S33 

ELSE 

7C  32 

“PINT  USING  -  'OX  ,30 .4X  ,30.0 

,700.00  '  1  .Ml .  ODE 

:Fns ,9cc .Tsat .Htube  .Qdp  . 

2b 
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3723  END  IP 
s?!3  END  IF 
3723  IF  In-3  THEN 
3733  9EEP 

97-13  INPUT  “OK  TO  STORE  THIS  DATA  SET  i  ! -V  ,3-N  ;7  “  .01- 
37S3  END  IF 

37S3  IF  Ok  - 1  OR  In- 1  THEN  J-JH 
3773  IF  Ok -I  AMO  In-3  THEM 

37S0  IF  Ihm-3  THEN  OUTPUT  3F : la  I ;9co , To  135 ,£nf < ♦ >  .Ur  ,  Ir  ,Avr  .Air 
9799  IF  thn-l  THEN  OUTPUT  3Fi  lal  i9cp  JdldS  .£nr‘!  .Fna 
9990  ENO  IF 

9910  IF  Iuf-I  THEN  OUTPUT  SUfilasUu.Uo 
9929  IF  Ira-t  THEM  OUTPUT  SRaf i lesFna  .Reu 

8930  IF  ( In- 1  OR  Ok  - 1  >  AMO  Iplat-I  THEM  OUTPUT  (SPIat  ;Qdp  .Thetab 
9940  IF  In-0  THEM 
9850  SEEP 

9960  INPUT  -UILL  THERE  9E  ANOTHER  RUN  < t -Y .0-N >?* .So_on 
9870  Nrun-J 

8999  IF  5o_sn-9  THEN  3930 
9890  IF  6o_an<>0  THEN  Rapeat 
9900  ELSE 

9919  IF  J<Nrun+l  THEN  Repeat 

9929  ENO  IF 

9930  IF  In-0  THEN 
9940  SEEP 

8950  PRINT  USIN6  "I0X/-NOTE:  data  runs  uera  atarad  in  hla  "‘.iQA'tJ 

t  ,Q2_f lie* 

9950  ASSIGN  OFUei  TO  - 
9970  OUTPUT  #Fila2;Nrun-l 
9990  ASSIGN  0Filal  TO  Ql_ftla* 

9990  ENTER  9Filal iQate*  .Ldtcl  .Ldtc2  .Itt 

9991  IF  Hunhtu-I  THEN  GOTO  9000 
9993  ENTER  0Fi lal iftldts I  ,Aldts2 

9030  OUTPUT  9FiIe2i0aia*  ,Ldtc! ,Ldtc2  .Itt 
9001  IF  Hunntu- I  THEN  GOTO  9010 
9003  OUTPUT  8Fi la2 i Aldtc I  ,AIdtc2 
9010  FOR  I- I  TO  Nrun-I 

9029  IF  Ihn-0  THEN 

9030  ENTER  9FiIal  ;8cp  .Told*  .Snf  <  »  !  ,Ur  ,Ir 

9049  IF  Hunntu- I  THEN  GOTO  9060 

9050  ENTER  BFilal  iAvp.AIp 

9060  OUTPUT  0File2i8ap , Told* ,Enf< •>  ,Vp  , Ip 
9070  IF  Hunntu- I  THEN  SOTO  9090 
9080  OUTPUT  0FiIe2iAvp,AiP 
9090  ELSE 

9100  ENTER  3F i lei  ;9op  .To Id*  ,£nf  (  *  )  .Fna 
9110  OUTPUT  9F i  Ia2  ;9op  , Told*  ,Enf  <  •  ,Fna 
9120  ENO  IF 

9130  NEXT  I 

9110  ASSIGN  OF i l e I  TO  • 

9150  PUR5E  "QUMMY “ 

91S0  ENO  IF 

9170  SEEP 

9130  PRINT 

9130  IF  Ip  lot- 1  THEN  PRINT  USING  ' ! 3X  .  ‘ 'NOTE:  <-Y  paira  uera  stored  i 

plot  data  f i la  “ “  .  1 0A* ; J-!  ,P_? i ie* 

9239  ASSIGN  3FUa2  TO  • 

9210  ASSIGN  JP'.ot  TO  • 

9223  IF  lur-l  THEN  ASSIGN  JUfil-  TO  • 

3233  I?  Irs-l  THEN  -SSiGN  }Psr';ls  TO  ♦ 
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32 13  CALL  Stats 

gcco 

92S0  INPUT  "LIKE  TO  PLOT  O.PTA  >  I -y  ,3-N  >'»'  .Ok 
9OT0  IF  OK"!  THEN  CHLL  P!;t 
9290  SUBEMO 
9090 1 

9039 *  CURVE  FITS  OF  FPOPERTV  FUNCTIONS 
9319  QEF  FNKsatT) 

9339'  OFHC  COPPER  CEO  TO  309  K 

9333  Tk"T+C73.!S  'C  TO  K 

9340  K-134-. ! !3*TK 

93S0  RETURN  K 

9350  FNENO 

9373  OEF  FNMu(  T  ! 

9399'  170  TO  350  K  CURVE  FIT  OF  VISCOUS  I TV 

9390  Tk "T+373 . ! S  'C  TO  K 

9409  liu-Sy.r  i -4.iS3S  +  (  191  I  .47/Tk  )  !*l  .0E-3 

94  !  0  RET'JP*!  Mu 

9479  FNENO 

9430  CEF  FNCsIT! 

94401  199  TO  490  K  CURVE  FIT  OF  Co 
94B0  Tk-T*273. IS  'C  TO  K 

9460  Co" . 40 1 99+1 .6S007E-3*  Tk  + 1 . SI 494E-5 »Tk *2-5 . S7953E-! 0»Tk ' 3 

9470  Co-Co* l 030 

9490  RETURN  Co 

9490  FNENO 

9S00  OEF  FNRho<  T ! 

9SI0  Tk-T*273. IS  'C  TO  K 

9530  X-l-(  1  .9"Tk/7S3.95)  'K  TOR 

9530  Ro-3S.32kSI . !4S4I4»X*< !/3!*lS.4)90!S*X+l7.47Sa38*X*.S*l .n9929«X"2 

9540  Ro-Ro/. 062429 

9S50  RETURN  Ro 

9S60  FNENO 

9570  OEF  FNPr-'T! 

9590  Pr-FNCo<  T  )»FNru( T !/FNK! T  > 

9590  RE i URN  Pr 
9509  FNENO 
9610  OEF  FNKfT  > 

96201  r:360  K  'JITH  T  IN  C 
9630  K-. 07!-. 0002S1 »T 

9640  RETURN  K 
9550  FNENO 
9660  OEF  FNTanh(X) 

9670  P-EXP'X) 

9690  Q-I.'P 

9S90  Tanh«(P-0’/!P*9) 

3730  RETURN  Tanh 

97 1 0  FNENO 

9723  OEF  FNT  /sv! V  * 

9730  CON  .'Cc/  O'- Meal 
3740  T"CI 0  ! 

37S0  FOR  I-!  TO  7 
9 75^  T*T*>Cf.  i  )  •»j~  i 
3770  M6XT  I 
3790  if  leal* 1  THEN 

9730  r*T’-5.742*934E-.2*'T»'  9. 027704IE-3-T*'  -3 . 32 S39 !  7E-5  >  » 

3900  ELSE 

39 !  3  T *  r *9 . 32S39~E-2  *-f  •  •  Z .  “5 1  99E-3  -  r  .  36392S3E-3  > 

3329  ENO  IF 
99-2  °ET,JPM  r 
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9S4C  FNENO 

9SSC  CEE  =N5et3'T> 

99SS  Ros'PNRhc'.  T*  .  1  ' 

9370  Rcm-ENPho' T- .  !  ' 

9992  9et  a-- 2/ '  P.op+fiom  *• '  Pcc-Ron  )  /  .  2 

9992  RETURN  Sets 

9922  FNENC 

99 1 C  DEE  FNHtg'T  ! 

9920  Hfg-1 .3741 3449*5-1 »( 3 . 309435 1 E+2  +  T* 1 .21551431 

9930  RETURN  Hfg 

9940  FNEND 

9950  OEF  FNPsat'Ts > 

9950 1  0  TO  90  deg  F  CURVE  FIT  OF  Psat 
9970  Tf-1.9*Tc+32 

9990  Pa*5 . 945525+T f • ( . 1 S3S2092*Tf •( 1 . 4940963E-3*T f »9 . 6 1 50571 E-6  !  ) 

9990  Pg-Pa- 14.7 

10000  IF  Pg; 0  THEN  i  +-9515. —  in  Hg 

10010  Psat-Pg 
10020  ELSE 

10030  Psat-Pg*29. 92/ 1 4 . 7 
10040  ENO  IF 
10050  RETURN  Psat 
10050  FNENO 

10070  OEF  FNHsuootMX  ,9oo  ,Isa*.  ! 

10090  Oin  A<  5  >  ,8<  5  >  ,C(  5  )  ,0(5  ) 

10090  DATA  . 20525,. 25322.. 3 1 9048,. 55322.. 799e9. 1.00258 
10100  DATA  .74515, .72992. .73189, .71225, .68472, .54197 
10110  OATA  .41092, .17726, .25142. .54806, .81916. 1.0945 
10120  OATA  .71403, .72913, .72565, .696691 ,.665867, .51889 
10130  REAO  A(  *  >  ,B(  •  >  ,C(  •  )  ,0<  •  > 

10140  IF  Bop<5  THEN  I “8 op 
I01S0  IF  8op-6  THEN  1-4 
10150  IF  8oc-!0  THEM  I -5 
10170  IF  I  sat- 1  THEN 
10190  Hs*EXP<  A<  I  '*9;  I  >*LOS(  X  >  > 

10190  ELSE 

10200  Hs-EX.P(  C<  I  1*0<  I  1*L0G<  X  >> 

10210  END  IF 
10220  RETURN  Hs 
I023e  FNENO 
10240  OEF  FNPolylX ) 

10250  CON  /Cply/  A( 10 , 10  )  ,C( 10  )  ,8(5  1  .Nop , Iprnt  ,0po  , Ilog ,1 fn .1  join ,Njoln 
10260  Xl-X 


10270  Poly-B(0> 

10280  FOP  I- I  TO  Nos 

10290  IF  I  log- 1  THEN  Xl-LOG(X) 

10300  Pcly-Po!y*9!  !  1*XT  I 
10310  NEXT  I 

10320  IF  I  log- 1  THEN  PcIy-EXP' °:1>  ' 

’0330  RETURN  Poly 
10340  FNENO 
10350  SU9  Poly 

10360  DIM  R(  10'  ,S(  10  l  ,Sy(  12  '  .  =  .  1  12  '  ,x,  i  100  )  ,Vy(  ’00  ‘ 

10270  COM  /Cply/  Ai 10 , 10  ,C1  10  :  .9(5  ,N , lornt ,0s= ,1  log  .! fr  . 

1039?  COM  /  X  y  y  /  Xp'2S  >  .  »p'2S  1 

10290  C0E  ! -0  TO  4 

1 040?  S'  I  >0 

' 04 ! C  WSXT  I 

'012?  SEEr 


jsir.Njsin 


10430  IN°'JT  "SELgrT  '  0«CI!_E  .  1 -L'E'.'90fiR0  ,2-PPOGPAM  '  -  ,  Ir 
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1Q44C  In-In*' 

'0452  SEEP 

1 0480  INPUT  -EMTEF  NUMSEP  0C  PAIP.S"  ,Np  • 

10470  IF  !r-!  TH£N 
I 04S0  BEEP 

1 0490  INPUT  "ENTER  DATA  =  !LE  NAME "  ,D  filet 
!OS0O  8EEP 

10510  INPUT  "LIKE  TO  EXCLUDE  DATA  PAIRS  (  l-Y  ,0-N  }■*•  ,Ied 
10520  IF  led- I  THEN 
10530  BEEP 

1 0540  INPUT  "ENTER  NUMBER  OF  PAIRS  TO  BE  EXCLUDED"  Ipe> 
10550  ENO  IF 

1 0560  ASSI6N  0Ftle  TO  0_*ile* 

10570  ELSE 
I05S0  BEEP 

10S9O  INPUT  "UANT  TO  CREATE  A  DATA  FILE  (  l-Y ,0-N >T"  .Yea 
1 0800  IF  Y-a-1  THEM 
10610  SEEP 

10620  INPUT  "SIUE  A  NAME  FOR  QATA  FILE"  ,D  file* 

10630  CREATE  BOAT  O.fileJ.S 
10640  ASSISN  tFile  TO  0  file* 

10650  ENO  IF 
10660  END  IF 
10570  SEEP 

10680  INPUT  "ENTER  THE  ORDER  OF  POLYNOMIAL "  .N 

10690  FOR  1-0  TO  N»2 

10700  Sy<I>-0 

10710  Sx(  I  )-0 

10720  NEXT  I 

10730  IF  led- I  AND  In-I  THEN 
10740  fqr  !«,  to  Ipev. 

10750  ENTEP  fFi le ! X  , Y 

10760  NEXT  I 

lCTO  END  IF 

10780  FOR  !«l  TO  Np 

10790  IF  In-1  THEM 

10900  IF  Odo-2  THEN  ENTER  0F*le:X.Y 

I0SI0  IF  Qpo<2  THEM  ENTER  fFil-i'.x 

10920  IF  Opo-I  THEN  Y-Y/X 

10930  IF  I  log-1  THEN 

10840  IF  Opo-2  THEN  Xi-X/Y 

10950  X-L06<  X  ) 

109S0  IF  Opo-2  THEN  Y-LOS(Xt) 

10970  IF  Qpc<2  THEN  Y-L06(Y! 

10992  END  IF 
10990  ENO  IF 
10900  IF  In-2  THEN 
10910  BEEP 

10920  INPUT  "ENTER  NEXT  X-V  PAIP",x.Y 
10930  IF  Y-a-l  THEN  0'JTDIJT  f c  .  i  .  .  >•  v 
10940  END  IF 
10950  IF  In  .3  THEN 
1 0990  x ( I  >-y 
1  09"’O  Y y(  I  >-Y 
10990  ELSE 
12990  x-X-< l-i  > 

1  1 002  v® Yp '  l-i  ;• 

■  e>jn  if 

t  i  o  -  p  ..  v 

1  1  0  3  2  S  v '  0  '  -  S  t '  2  1  *  / 
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»  1  2  4  2  3 '  !  I  *  X 
!  !  2S2  :»(  1  l-S* 1  l  +  X 
H9S3  cor  j«i  to  N 

i  i  g7g  O;  ;  >»9(  _r-  >  )•:< 

!  i  092  3y<  J  >"Sy!  J  !*R<  J  ? 

‘109*2  NEXT  J 
!  !  !  22  POP  J  “2  TQ  N •  2 
•  I  1  10  S'  J  '-S'  2-1  >•* 

I  !  !  22  3a «  J  i-Sa!  J  M-SC  J  > 

!  j  j  30  mcv  r  j 
! 1140  NEXT  I 

! ! icg  fc  yal«!  ANC  In-2  THEM 
I ! t  S3  SEEP 

11170  PRINT  US  INS  *  1 2X  ,00  ,  ‘ “  X-V  oatrs  aars  shared  in  file  *  *  ,  I0A* sNp ,0_f l la* 

11199  END  IP 

l  I  ISO  3*<9>Np 
1 ! 200  POR  I -0  TO  N 
I  1210  C( I  )-Sy< 1 5 
11220  POR  J-0  TO  N 
I  1220  ACI  ,J  >»Sx( I*J  ) 

I  1240  NEXT  J 
I  1250  NEXT  I 
11250  POR  1-0  TO  N-l 
11270  CALL  Olvtda< I > 

11290  CALL  Subtract!  1*1  ) 

11230  NEXT  I 

11200  9<  N  !«C(  N  )/A(  N  ,N  J 
I  1310  POR  1-0  TO  N-l 

1 1323  0'N-l-I )-C<N-l-t  ! 

11330  POR  J-0  TO  I 

11240,  B(N-I-I  !-9<  N-l  -I  !-A<  N- 1  - 1  ,N-J>»9<N-J  > 

1 1350  NEXT  J 

I  13G0  8<  N- 1 -I >-9<  N- t -I J/AC N-l -I  .N-l -I  ' 

11370  NEXT  I 
1  I 3901 PR  INTER  IS  701 
I  I  390 'PRINT  9< ♦  ) 

1  1 400 1 PRINTER  IS  70S 
11410  IP  Iprnt-O  THEM 

11420  PRINT  USING  *  1 2X  "EXPONENT  COEFFICIENT"*" 

11430  FOR  1-0  TO  N 

11440  PRINT  USING  * 1SX  ,00  .5X  .N0.70E* 1 1  ,91  I  ) 

I I4S0  NEXT  I 

M470  PRINT  USING  *I2X.**0ATA  POINT  X  X  Y( CALCULATED )  OISCR 

ep*firv->- 

1 1 490  FOR  I-1  TO  No 
1 1 490  /c-9<  3  > 
l 1500  FOR  J-l  TO  N 
!'S!0  -,s-xs*9< J >  *Xa(  1 1  *  J 
I  1 S23  NEXT  J 
I  1  530  C-Vy< I  '-Xc 

1IS40  PRINT  USING  *  I SX  ,30 . 4X  ,4(  NO .SDE  ,  I  x  1 '  i  I  ,Xa(  I  )  ,Xy<  I  )  ,YC  ,0 

1 1CC0  MCyr  I 

11552  ENO  IF 
i 1570  ASSIGN  JF; Is  TO  • 

I '590  3U9EM0 
1  1  530  3U9  0:  d*<  N  ' 

l  i  egg  Cal/  A'  10  .  ’0  ■  ,C-  "3  ,9'  S  ,’l .  lor-it  ,2co  ,  I  lag  .  I  f  n  .  I  ja  in  ,N  jo  in 

1  '  9  !  2  cno  I  "0  *! 

?  •  t  ' 
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1 630  FOR  J-M  TC  N 

!S4e  a<  i  ,j  >-*' : ;/ac 

tSSC  NEXT  J 

1SS0  C(  !  J-C!  !  .'/As 

!S?e  NEXT  I 

I S90  SUBENC 

1690  SUB  Subtract ! K  ! 

1700  CON  /Cply.'  A' 10 . 10  >  ,C!  10  J  ,B(S  >  ,N  ,!prnt  ,Opo  ,Ilog  ,Ifn  .1  join  ,Njom 

1710  FOP  I-K  TO  N 

1720  FOR  J-K-t  TO  N 

1730  A(  I  ,J  )-A(K-l  ,J  >-A(  I  ) 

1740  NEXT  J 

17S0  C<  I  !-C(K-l  >-C<  I  1 

1760  NEXT  I 

1770  SU9EN0 

1790  SU9  Pllr 

1790  CON  /Ccly.'  A(  10,10  5  ,C!  10  *  .B(S  >  .N.Iprnt  ,0oo  .Hog.  Ifn  ,1  join  .Njom 
1900  CON  /Xxyy/  X*!  25  .Yy(  25  > 

1810  PRINTER  IS  70S 
1920  BEEP 

1930  INPUT  -UANT  TO  PLOT  Uo  vs  Uu?  ( l-Y ,0-N )*  ,Iuo 
1840  IF  Iuo-0  THEN 
i960  BEEP 

I960  INPUT  ‘SELECT  (0-N/N02  sane  tube , I -h< HF >/h( an >•  .Irt 
1870  BEEP 

1880  INPUT  ‘SELECT  h/h  RATIO  < 1-FILfi  ,0-COHPUTED >’ .Ihrat 
<890  IF  lhret“0  THEN 
1900  BEEP 

1910  INPUT  *  WHICH  Tsat  <  I -6 .7  ,0— 2 .2  )*  ,I»at 

1920  END  IF 

1930  X«in»0 

1940  Xra*«l0 

19S0  Xstep-2 

I960  IF  Irt-0  THEN 

1  970  Yn  m»0 

!  990  Ynax-1  .  4 
1990  Ystsp-.2 
2000  ELSE 
2010  Ynin«0 
2020  Yna/.-!5 
2030  Ysteo-5 
2040  END  IF 
2OS0  ELSE 
2060  Opo-2 
2070  Ymin«0 
2090  Yne>-»l2 
2090  Ystep-3 

2100  Xnm-0 

2110  Xf-a.'-4 

2120  Xstep-I 

2130  END  IF 

2140  IF  I  Hr-- 1  -  1  THEN 

2150  Ymin»0 

2  ISO  v.j . . i c 

2 1 70  Ystsp*3 
'  2 1 9C  Xnir-e 
1  2  I  9C  Yna.-  *9 

’  »  2  (?  2  V  «  4  gr>a? 

' 221G  END  IF 
12220  SEE0 
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SZ-2  co  j mt  '  [M :  ;P  '  :  1°  2290  , 2299 , 3399  ,5399 ;  * 

RC.INT  'SC  9 . 100  .0 . 109:  T'_  2,9:' 

2259  3  f-<m !  90/ (  Xma*  -Xm  to  > 

2250  3?/«l00/<  Yr»a*-Yntn  ? 

Z2“9  “PINT  ' P'J  9,9  PO" 

2290  e9P  ya«<ri'.n  T9  .<ns,  3TE3  Xsias 
2299  :<■<  Xa-Xntfi  >»STx 
2 zee  PPINT  ;X ,* .9;  XT:  " 

2210  NEXT  Xa 

2220  ppint  *pa  1 90 .esP'j;  ■ 

9219  PPINT  "P'J  PA  9.9  PQ" 

2340  POP  Ya-Yfiin  TO  Y«a*  STEP  Ystep 
22S0  Y-< Ya-Ynin >*Sfy 
3360  “PINT  "PA  0,";Y,"YT" 

2370  NEXT  Ya 

3330  PRINT  "PA  0.100  TL  9  2" 

2290  POP  Xa-Xmn  TO  Xnax  STEP  Xsteo 
2109  X»( Xa-Xnirt !»SI* 

2410  PRINT  "PA* :X ."  ,190:  XT" 

2429  NEXT  Xa 

2430  PRINT  "PA  100,100  P'J  PA  100,0  PO" 

2440  POR  Ya-Yntn  TO  Y*ax  STEP  Ystao 
2450  Y«(Ya-Yrun>»Sfy 

2450  PPINT  "PO  PA  ! 00 , "  . Y  . " YT " 

2470  NEXT  Ya 

2430  PPINT  "PA  100,! 00  P'J" 

2490  PRINT  "PA  0,-2  SR  1.5,2" 

2S00  POR  Xa-Xnl n  TO  Xnax  STEP  Xstec 
2510  X-«Xa-Xfiin!*STx 
2520  PRINT  "PA" :X  , " ,0: " 

2530  IF  !ao-3  THEN  PRINT  "CP  -2  ,-l ;L9* :Xa: " * 

2S40  IF  Iuo-l  THEN  PRINT  "CP  -I.S.-l:L9"iXa:"" 

2553  NEXT  Xa 

2550  “PINT  "P'J  PA  0.0" 

2570  FOR  Ya-Y-tm  TO  Yna*  STEP  Yateo 
2530  IF  A9S(  Ya X  I .S-S  THEN  Ya-0 
2590  Y»<  Ya-Ymo  !»S  fy 
2S00  PRINT  "PA  0  , " : Y  .  "  " 

2S10  IF  tuo-0  THEN  PRINT  "CP  -4 ,-.2S:L3" : Ya: "" 

2S23  IF  Iuo-l  THEN  PRINT  "CP  -3 2S:L9" : Ya: *  * 

2S20  NEXT  Ya 

2S40  XIabalS-'Ot  l  Pareant" 

2550  IF  Iuo-0  THEN 
2550  IF  !rt*0  THEN 
2S73  Y  lahaU*  'h/h0S" 

2S30  ELSE 

2S30  YlabelS"* N/ h snoot N " 

z-ee  eno  if 

2710  “PINT  'SR  I  .5  ,2  :  P'J  “A  50.-19  CP" : -LEN<  X  labels  >/2 : "3:L9“ : X labels :" " 

2"’29  “PINT  "PA  -11,50  CP  9,  '  :-LEN(  YlabelS  ?/2*S/S:  *01  9 . 1  :L9" :  Y  labe  IS :  * " 

2~29  “PINT  "CP  9.0" 

CAO  ELSE 

2 “50  “PINT  "SP9:S“2" 

2“S9  “PINT  'SR  1  .2  ,2.4:P'J  FA  -9,35:0!  9,I:L9U:PP  !,3.5;L9o:PF  -1,9.S:LB  'k'J/n 

2— 9  “PINT  -l  ,3 . 5 :  SP  1,I.S:L32:SR  !.S,2:“P  ,5,.S:L3.:C“  .S,3:L9K>" 

;-og  D“!NT  “A  42  ,  -  1 0 : 0  I  '  ,0 : L3Y :PP  .4,-1 :L9w :PP  1  . 5 :L3l a. s  >* 

--•irj  oonjr  ■  -t p g  .  3 p  »  - 

C3G0  £\'0  -F 

"Otry  r  ~rm‘* 
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1-222  SEE? 

1  2230  INPUT  -UANT  TO  PLOT  OAT  A  PROM  A  PILE  >.  1 -\  ,0-N  )'>'  ,01. c 

12940  len-0 

12SSC  IF  Ot.o-1  THEN 

122SS  SEEP 

12270  INPUT  "ENTEP  THE  NAME  OF  THE  DATA  FILE'  ,0_?i leS 
1 2990 1  IF  !uc-0  THEN 
12990  BEEP 

12900  INPUT  -SELECT  ( 0« LINEAR  ,  i-L06< X  ,Y >•  .Hog 
12910’  END  IF 

12920  ASSISN  CFiie  TO  D.file* 

12930  BEEP 

12940  INPUT  ’ENTER  THE  BEGINNING  RUN  NUMBER- ,Md 
12250  9EEP 

I29S0  INPUT  -ENTER  THE  NUMBER  OF  X-Y  PAIRS  STOREO*  .Npair. 
12970  IF  Iuo-0  AND  Ihrst-0  THEN 
12990  SEEP 

12990  INPUT  -ENTER  DESIRED  HEAT  FLUX' .0 

13000  ENO  IF 

13010  9EEP 

13020  PRINTER  IS  1 

13030  PRINT  USING  *4X. -’Select  e  symbol:*" 

13040  PRINT  USING  -4X.--1  Star  2  Plus  sign"* 

13050  PRINT  USING  *4X,"3  Clrele  4  Sauare"- 
>3060  PRINT  USING  -4X.--S  Rambus”" 

13070  PRINT  USING  -4X."6  Rlght-slde-up  triangle"” 

13080  PRINT  USING  -4X,-*7  Uo-slde-doun  triangle"” 

13090  INPUT  Sym 

13100  PRINTER  IS  70S 

13110  PRINT  *PU  OP 

13120  IF  Sym" I  THEN  PRINT  "SM*- 

13130  IF  Sym-2  THEN  PRINT  "SM*- 

13140  IF  Sym-3  THEN  PRINT  "SMc* 

13153  Nn-4 

131S0  IF  I  log- 1  THEN  Nn-1 
13170  IF  MdM  THEN 
13190  FOR  1-1  TO  (Md-1  ! 

13190  ENTER  tFil-iXa.Ya 
13200  NEXT  I 
13210  ENO  IF 

13220  IF  Ihrst-0  THEN  - 
13230  01-0 

13240  IF  I log-!  THEN  Q-LOG(O) 

13250  END  IF 

1 3250  FOR  1*1  TO  Ngairs 

13270  IP  Iuc-0  AND  Ihrat-0  THEN 

13290  ENTER  0Fi!e:Xs  ,9! •  1 

13290  Ya-9( 0  1 

13300  FOR  K- 1  TO  Nr 

13310  Ya-Ya*9!K ! • 0 " K 

13320  NEXT  K 

13330  ENO  IF 

13340  IF  Iuo-1  OR  Ihrat-1  THEN 
13350  ENTER  ?F i I e : X a ,Y a 
1 -350  IF  Iuo-I  THEN  Ya-Ya  ’000 
13370  END  IF 

12390  IF  Iuc-0  AND  !hra*-0  THEN 
’2390  IF  I  log- 1  THEN  \a-Ey°,,.> 

12400  IF  I!cg-0  THEM  Ya-Ql  vs 
12410  IF  I-t-0  THEN 


105 


<2123  re  :<j-o  THEN 
13420  <o“Ya 
<3140  Ya-I 
i 21C0  £LS£ 

I  2450  Ya-Ya/Yo 
<24  70  END  IP 
13493  ELSE 

!  3193  Han-FNHamooth'Q  ,Xa  ,  laat  ! 

! 3E30  Ya-Ya/Han 
1 35! 3  ENO  IF 
13533  ENO  IF 
!  3533  Xxt  I- 1  !«Xa 
13540  Yy( I-!  >-Ya 
13553  X“< Xa-Xnln  >»Sf-< 

1 3550  Y-<Ya-Ynin>*Sfy 

13573  IF  Sy«; 3  THEN  PRINT  'SM' 

13590  IF  Syn<4  THEN  PRINT  *SR  1.4, 2. 4' 

13590  PRINT  'PR*  ,X,Y," 

1 3500  IF  Sym'3  THEN  PRINT  'SR  1. 2.1.5' 

I  38 10  IF  Syn-4  THEM  PRINT  'UC2  .4  .99  .3  .-8  .-4  .3  .3  ,9  .4  .0  ,  s  ' 

13530  IF  Sym-S  THEN  PRINT  *'JC3  ,0 , 99  ,-3  ,-S  ,-3  ,S  ,3  ,5  ,3  ,-S  i  * 

1 3630  IF  Sym-S  THEN  PRINT  'UC0 ,5 . 3 ,99 ,3 ,-9 , -S  .3  .3  ,9 :  ’ 

13840  IF  Syn-7  THEM  PRINT  'UC3 , -5 . 3 .99 ,-3 ,9 ,8  .3  ,-3  ,-9i ' 

13850  NEXT  I 
•3680  9EEP 

13570  ASSIGN  9Fi  la  TO  • 

13590  ENO  IF 
13690  PRINT  “P'J  SN- 
1 3700  SEEP 

13710  INPUT  -'JANT  TO  PLOT  A  POLYNOMIAL  <  1  -Y  ,3-N  >7*  ,Okp 

13720  IF  Oks-I  THEN 

13730  BEEP 

13740  PRINTER  IS  1 

13750  PRINT  USING  '4X, "Select  line  tyoe:'" 

137S0  PRINT  USING  "SX,"3  Solid  line”' 

13770  PRINT  USING  'SX,’'I  Oaahed'" 

13790  PRINT  USING  *SX,”3,,.S  Longer  tine  -  daah"' 

13790  INPUT  Ion 
13900  PRINTER  IS  70S 
13910  9EEP 

13920  INPUT  'SELECT  <  0-LINEAR  ,  I  *LQG(  X  ,Y  >  >'  ,  I  log 

13930  lornt^l 

13940  CALL  Paly 

13350  IF  !uo-l  THEN 

13980  9EEP 

!39"3  INPUT  'DESIRE  TO  SET  X  Lower  and  Uocar  Unit  '■  1  -Y  ,3-N  )•»'  .  Ix  l  in 

13990  IF  !*lin-0  THEM 

13993  Xll-0 

13900  «ul»7 

13910  ENO  IF 

13923  IF  !*lin-1  THEN 

13333  9EEP 

13940  INPUT  "ENTER  <  Lower  Lmit'.Xll 
<235(3  seep 

I39S3  IMPUT  "ENTER  X  Upper  Limt'.Xul 
139-3  EMO  IF 
<2993  END  IF 

12950  cno  '3-/11  ro  <ul  STEP  <atao.-2S 
»  I  f  -«■.*  * 

1  1013  '  i»FNPo  I  Y  3  ’ 
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!<ic:c  if  iu=*!  then  iooe 

14030  Y-'Ye-Ynr. 

14040  X«< Xa-Xnxn >*Sf / 

14050  IF  '■ -0  THEN  Y-0 

140S0  IF  Y  100  THEN  GOTO  141S0 

1 4070  Pu-0 

14090  IF  Ion* 1  THEN  Idf-len  MOD  2 
14090  IF  Ion-0  THEN  Idf-Icr  MOD  4 
14100  IF  Ion-3  THEN  Idf-len  MOO  9 
14110  IF  Ion-4  THEN  Idf-len  MOD  IS 
14120  IF  Ion-5  THEN  Idf-Icn  MOO  32 
14130  IF  Idf-1  THEN  Fu-I 
14140  IF  Pu-0  THEN  PRINT  “PA"  ,X  . Y  . "PO " 

14  150  IF  Pu-I  THEN  PRINT  "Pfl"  ,X  ,Y . “°U" 

14  ISC  NEXT  Xa 
14170  PRINT  *P*J* 

14190  SOTO  12920 
14190  END  IF 
14200  BEEP 

14210  INPUT  -UANT  TO  QUIT  (  l-Y,0-N.'7‘ .loult 

14220  IF  Iqult-I  THEN  14240 

14230  SOTO  12920 

14240  PRINT  -PU  SP0- 

14250  SUBENO 

14260  SUB  Stata 

14270  PRINTER  IS  701 

142B0  J-0 

14290  K-0 

14300  BEEP 

14310  IF  Iclot-I  THEN  ASSIGN  (File  TO  P^file* 
I432e  BEEP 

14330  INPUT  -LAST  RUN  No’< 0-OUIT  !’ ,Nn 

14340  IF  Nn-0  THEN  14700 

143S0  Nn-Nn-J 

14350  S*-0 

14370  Sy-0 

14390  S:-0 

14390  S?.s-0 

14400  Sys-0 

14410  S:a-0 

14420  FOR  I - 1  TO  Nr 

14430  J-J  +  l 

14440  ENTER  BFilesO.T 

1 4450  H-Q/T 

14450  Sr-S^C 

14470  S>  s-S». s+0'2 

14490  Sy-Sy*T 

14490  Sys-Sy s+T"2 

14=00  Sr-SiAH 

14=10  Srs-Sz3*H‘2 

14520  NEXT  I 

14530  Oave— S.-. /Nn 

14=40  Tavs-Sy 'Nn 

14=50  Have-Sl/Mn 

14==0  Sdevs-SQFc  A5S( '  r.'n*S.  •  -=.  2  1  ■*/ Nr-i  Mr-1  ' ' 
14570  Sd-vt-SORl  495 (  Mn«  *  .  *-  =  •,  “2  ?/  '  Nn*  '  Nn-  ’  *  < 
1  4590  SdsvH-=QP(  4.95 1  1  Nr •  =  c  s  -  5  c  2  '  ' 1  l!n*  <  Nr  - 1  '  j 
14590  Sh- i oe-Sdevn/Hav- 
’  4530  So* I 0C*Sdev5  Gave 
14=10  S t «  1 00*5devt .•  T 
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l£Z3  IF  K*!  THEM  !  -1SS9 
4.c 3.3  ppffjr  • 

lS*i0  PpffiT  iJS  I  MS  ' !  !  X  ,  "’OrtTA  c  ti_c  :  -  -  4  «  -  :  c  ,  [  s$ 

jcc.j  PRINT 

4SS0  P»!NT  USING  -» IX .-"RUN  Htube  SdevH  Qdp  SdevO  Thetab  Sd«vT"“ 

4ST9  K-l 

1S99  PRINT  'JSIMG  '  II X  .CO  .3<  3X  .9.30E  . !  :<  ,30.  -3  >  ,3X  ,00.  30 . 1 X  ,30. CO” ;  J  .Hava  ,Sh  ,Qava 

Sq Java. Si 

4539  SOTO  !4339 

4~09  ASSIGN  5F : 1  a!  T Q  ♦ 

1719  PP INTER  IS  1 
4733  SU9ENG 
4739  SU0  Coef 

4749  COM  /Cply/  A<  10 , 10  >  ,C(  t0  !  ,B<S )  ,N  .Iprnt  ,Qpc  ,1  lag .  tfn  .Ijain  .Njoin 
47S9  9EEP 

4759  INPUT  “GIVE  A  NAME  FOR  CROSS-PLOT  FILE*  ,Cpf« 

4779  CREATE  90AT  Cpf3.3 
4799  ASSIGN  9Ft  la  TO  Cpf9 
4790  SEEP 

4900  INPUT  -SELECT  ( 0-LINEAR  ,  I "LQS<  X  ,Y  >  )* , I  log 
4910  9EEP 

4339  INPUT  -ENTER  OIL  PERCENT  < -I -STOP  !• ,9op 

4930  IF  9ap<0  THEN  14970 

4940  CALL  Poly 

4950  OUTPUT  9F l Is : Sop ,9<  *  J 

4960  SO TO  1 49 10 

4970  ASSIGN  9Fila  TO  • 

4990  SUBEMO 

4990  SU9  'Ji  lson(  Cf  .Ci  ! 

4990  CON  /'Jil/  03  ,0t  ,0o  ,L  ,Lu  ,Kcu 
4919  DIM  Enf( !3  ) 

49391  ULISON  PLOT  SUBROUTINE  DETERMINE  CF  ANO  CI 
4939  9EEP 

1940  INPUT  -ENTER  DATA  FILE  NAME  * , F i L  a9 

4OC3  gcco 

4950  PRINTER  IS  I 

4970  PRINT  USIM6  "4X  ..*  'Selac*.  option:""’ 

4990  PRINT  USING  *4X  ,  *  *  9  Uary  Cf  and  Cf* 

4990  PRINT  USING  • 4X  ,  •  ‘  I  Fix  Cf  Uary  Cf  * 

5000  PRINT  USING  * 4X  , -  ”  3  Uary  Cf  Fi.«  Cf  * 

5019  INPUT  ’ENTER  OPTION’  ,  Ic f  i* 

5030  “PINTER  IS  701 
5030  IF  tcfi.<-9  THEN  15079 

5040  IF  Iefi.<:9  THEM  9 EEP 

5099  IF  ! e f : * • I  THEN  INPUT  "ENTER  rf’.Caf 

S0S9  IF  Icf;/-2  THEN  INPUT  "ENTER  Cl’.Ci 

S079  PRINTER  IS  I 

E990  INPUT  -'Jant  Ta  Uary  Caaf  f I -Y  ,9-N  >*  ,  lacaef 
S090  IF  lacasf -!  THEN  INPUT  "ENTER  COEFF"  ,R 
S 1 99  PRINTER  IS  *’0) 

5 1  ! 0  IF  Icfi.eG  OR  Icf :/  ”3  THEM  Cfa».304 
S 1 39  IF  tcf  THEM  C'j-Caf 
c  1  33  r . ,.r  ; 

sue  <n~.  3 
ci eg  .  3 

S!50  J j 'O 
c 1 -3  o- , 3 _ 

5 1 32  IF  !aaa*f*'  "HEN  °r'° 
c  1  03  so  rfjyco  ’  c  1 
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1523C  PRINT  Os  ,Oi  ,Kcu 
IS2!C  ASSIGN  Pc:!s  TO  Files 

15220  ENTER  PRi le  s  Nrur ,Oa tat  ,Ldt  e  1  ,Ldt  s2  , 1 1 1 
i  c;32  Ru"Qs*!_QS<  Os/Oi  !/<  2*Ksu  ' 

15240  S/-0 

15250  Sy-0 

1S2S0  S*y-0 

15270  S>2*0 

1 5280  Sy2-C 

15290  FOR  I- I  TO  Nrun 

15300  ENTER  eFilesSop .Told*  ,Emf< • 1 ,Fms 

15310!  CONCERT  EMF’S  TO  TEMPERATURE 

15320  FOR  J-1  TO  5 

15330  T<  J  !«FNTvsv<En?<  J  )  ) 

15340  NEXT  J 

15350  Tsai«<  T<  I  >+T(  2  1  >•  .5 
1S360  Tavg-T'.S) 

15370  Grad*37.98S3+. !04399*Tavg 
15390  T  drop“Emf ( 7  )•  1  .£*S/!  10.*Srad> 

15390  Tavgc“T( 5  1-Tdroo* -5 

15400  IF  A8S(Tavg-Tavgc  >:■  .01  THEN 

15410  Tavg»< Tavg+Tavgp >* .5 

15420  SOTO  15370 

15430  ENO  IF 

1 5440 1 

154501  Compute  properties  of  water 
154Se  Kw-FNKw(Tavg) 

15470  Muwa*FNMuw<  Ta vg  ) 

15490  Cpu-FNCpw(  Tavg ) 

15490  Pru*FNPru(  Tavg ! 

15500  Rhow“FNRhou( Tavg  ) 

15510' 

15520!  Compute  properties  of  Freon-114 

15530  Lntd"Tdrop/LOG<  <  T C  5  i-Tsat  >/(  T( 5  1-Tdrsp-Tsat  1  1 

15540  IF  Jj-0  THEN 

15550  Tw" T  §  a  t  *Fr • Lni d 

(5550  Thetab-Tu-Tsat 

15570  J j- I 

15590  EMC  IF 

15590  T?“( Tu+Tsat  )*.S 

15500  Rho-FNRho< Tf  1 

15510  Mu-FNMu(Tf  ) 

15620  K-FNK! Tf  ) 

15E30  Cp-C NCpfTf  1 

15540  9eta-FN8etat  Tf  ) 

15550  Hfg-FNHfg< Tsa*  J 
1 5550  Nl-Mu/Rho 
15570  Alpha-K." Phc*Cc  ' 

15590  Pr-Ni 'Alpha 
15E901 

157001  Analysis 
15710’  COMPUTE  MOOT 
1 S"2C  A-»I*' Oe'2-Oi *2 >'4 

I c~3;  o.pj.Qj 

’=740  Mdot  *2 . 9S57E-3*Fms • '  3 . S I 9555-3-Fns • < S . 92C0EE-S-Fn-* >  l .23S3SE-'-Fms*4.3'S9 

E- 1 0  1  1  1 

1  Q*^dot  *Co5j*  Tdrcp 

COMPUTE  NPTUP^L-COrJVECT !UE  HE*T - Tc AfJEPE2  COErr!C  IErJT 
1  POP  WEflHAMCEO  Ef/O1' ; 

I Hbar-190 
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15790  Fe-<HbafP.'(heu*A  '  >'  .5‘Lu 
! 5900  Tanh“FMTanh( F» > 

15910  Theia“Thetab‘Tanh./ce 

15970  Xx-<  2.9!  •9eta*Tha*. ab *00*3* Tanh/(ce*N : ‘Alpha  !  >■  .  1SSEE7 
15930  Yy-(  1  *<  ,559/Pr  >-(  9'  IB  >  >"<9/27  > 

15940  Hbarc-K/Do*!  .£■*■  .297-Xx/Yy  1*7 

15950  IF  ABS< (Hbar-Hbarc  >/Hbar  ). .001  THEN 

159S0  Hbar«( Hbar+Hbarc >* . 5 

15970  SOTO  1S790 

15990  END  IF 

15990! 

15900'  COMPUTE  HEAT  LOSS  RATE  THROUSH  UNENHANCED  ENDS 

15910  01 ■( Hbar»P*Kcu*A  )" . 5*Thetab»Tanh 

15970  Qc-0-2‘01 

IS930  As“P!*Q2*L 

159401  COMPUTE  ACTUAL  HEAT  FLUX 

15950  Qdp-Qe/As 

15960  IF  Icflx-0  OR  IcftxM  THEM  Caf-l  /Cf  *M  .  /Rr  ! 

15970  Thetab-Csf/Cp*Hfg»<Qdp/<Mu»Hfg  )•(  .0 1 4/' 9.9 1 ‘Rho  } '*.5  !*<  I  /Rr  >»Pr“  I  .7 

15990  Ho-Odp/Thetab 

15990  0«ega«Ho/Cf 

1S000  Uo«Q/( PI»Oo»L»Lwtd  ) 

16010  Vw“Mdot/( Rhou*PI»Ol *2/4  ) 

16020  RewaRhow*Uu*Ol/Muua 
16030  Tui«Tw+0»Ru/(PI*0o«L  ) 

16040  6«naaKw/0l*Rew" .6*F  "w*( 1/3.  )•  uua/FNMuw( Twl  )  >‘ . 14 
16050!  PRINTER  IS  I 
1 6060  Yu-( 1 . /Uo-Ru  >*Onega 
16070  Xwa0nega*0r/( 5ana*0l > 

16090  Sx**Sx+Xw 

16090  Sy-Sy+Yw 

1E10O  S\y"Sxy+Yu»Xu 

15110  Sx2“Sx2+Xu»Xw 

15120  Sy:-Sy2  +  YwYw 

1513"  ‘”"‘.7  I 

ip’  10  ASSIGN  BFi le  TO  • 

"■•a!"  '  S>.*Sy  **run*S.ry  !/(  Sx*S»:-NPun»S*2  ! 

1  la  1  •(Sy~Sx‘ir)/Nrun 

161.  IF  Icfix-0  OR  Is?ix-3  OP  Icfix-4  THEN 

16190  Cie-I/M 

16190  Cfe-l.'C 

16200  END  IF 

16210  IF  Ic^lx-I  THEN 

16220  Cie-l/M 

16230  Cfe-Cf 

IS240  END  IF 

16250  IF  !cf:x-2  THEN 

16260  Cic*Ci 

1E270  C?c*l/C 

1E290  END  IF 

15290  IF  ABS<  (Ci-Cic  !/Cic  )'.  .00!  OR  ASS' < Cf-Cf c  ).'C f c  ! :  . 00!  THEN 
1E300  !•  .5 

1E210  Cf-'Cf*Cfc  !•  .5 
16220  PRINTER  IS  1 

16330  PRINT  USING  "2Y."*  Csf  -  "  "  ,MZ  .  30E  ,2X  , " '  Ci  -  "  "  ,MZ  .  3DE  "  ;Cs?  ,C  i 
IS 340  PRINTER  IS  ",0l 
16350  GOTO  15710 

cmo  jc 
'S3?G  PP I  NT 
!£3SC  °R!NTEP  IS  ?(?’ 


no 


t  c  392 

PRINT 

USING 

"  "’TV 

"  ■  c  f 

Ci""" 

15400 

pp  Tfc|T 

USING 

•  ay  • 

"ASSUMED 

M7  ?nc  “V  M7 

3DE" iCfs  ,Cia 

16419 

PRINT 

USING 

-  Qy  ■ 

“CALCULATED 

'  .M2.3DE  ,3X  ,MZ , 

30E" ; Cs  f  ,C  t 

15420 

pp  rwr 

16430 

SunC*' 

Iy2-:*M 

•S,:y- 

"2  *C  »SyfM '2 

I»M*C,S.'*Nr’jn*C 

"  3 

!  C 442 

PRINT 

USING 

'  I0X  , 

,""Sun  of  Square: 

l  *  * •  Z . ZOE " : S 

nr.  2 

16450 

PRINT 

USING 

"  !  0X  , 

.•■Coefficient  - 

”  ,0.000" :Rr 

15*60  5 US END 
1S470  OEF  FNMuu(T) 

I  5499  A-247.9/'T+l33.lS) 

1S4S0  Mu”2 . 4£-5* !  0"  A 
ISE90  RETURN  Mu 

1 551 9  FNENO 

15520  OEF  FNCcu(T) 

l 6530  Cpu-4. 21 l239S9-T*!:.:S32SE-3-T*( 4.423S1E-5+2.7l429E-?*T ! ) 

ISS40  RETURN  Caw* ! 909 

ISSS0  FMENO 

I6SS0  OEF  FNRhou(T) 

I6S70  Ro“999.S294S+T»< .3!2S9-T»<5.4925I 3E-3-T • t .234147E-5) ! 

ISS90  RETURN  Ro 
ISS90  PNENO 
1 6600  OEF  FNPru(T) 

16510  Prw-FNCpw<  T >»FNMuu( T  >/FNKu<  T ) 

16620  RETURN  Prw 
16630  FNENO 
15640  OEF  FNKu(T) 

16550  X-<T*273.  ISl/273.  IS 

16560  Ku— .92247+X»(2.939S-X»<  l.9007-X»t  .  52577-.  97344.x  >> ) 

16670  RETURN  Ku 
16690  FNENO 
15690  SUB  Plot 

16700  COM  /Cply/  A(  10 , 19  '  ,C(  10  >  ,8<S  >  .Nop  ,  tornt  ,0po  ,  I  log  ,t  fn  ,1  join  .Njcin 
15710  OIM  93(3) 

16729  INTEGER  U 

16730  PRINTER  IS  I 
16740  Idv-0 
IS7S0  BEEP 

16760  INPUT  'LIKE  DEFAULT  VALUES  FOR  PLOT  ( 1 -Y  ,0-N >7*  , tdv 
15779  9po“9 
15790  SEEP 

16790  PRINT  USIN6  "4X, "'Select  Option:"” 

16900  PRINT  USING  *SX.”0  g  versus  delts-T*"" 

16910  PRINT  USING  *SX."*I  h  versus  delta-T""' 

15929  PRINT  USING  "SX,""2  h  versus  q""" 

16930  INPUT  Opo 
16940  SEEP 

16950  INPUT  "SELECT  UNITS  ' 0-SI  ,! -ENGLISH  )".  lun 
16950  PRINTER  IS  70S 
1S973  IF  I dv .•  I  THEN 
16990  9EEP 

16999  INPUT  "ENTER  NUM8ER  OF  CYCLES  FOR  X-AXIS", C.; 

IS 990  SEEP 

l S3! 9  INPUT  "ENTER  NUMBER  OF  CYCLES  FOR  T-AXIS'.Cy 
16920  SEEP 

16339  INPUT  "ENTER  M[M  X-VAL'JE  'MULTIPLE  OF  19'". 'nm 

16340  9EER 

1 S9S0  INPUT  "ENTER  "IN  '-UflLUE  'MULTIPLE  OF  I0'".7inn 
'9350  ELSE 
1 5379  IF  Opo-G  THE!I 
15390  Cy-3 


li! 


O  <1 


I c  gan  r,»3 
I vn ; n *  f j 

l?0!O 

i  7(3^2  eikjn  rc 
1  "‘3-2  rc  Ope*!  THEM 
’"’340  Cy»2 
17059  Cx-2 
!  7350  Xnm- .  ! 

17279  Venn*! 99 
17990  ENG  IF 
17090  IF  Opo-2  THEM 
17130  IF  Iun-0  THEN 
17119  Cy-3 

17129  Cx-2 

17130  Xm in- 1  000 
17140  Ynm-100 
17150  ELSE 
I71S0  Cy-3 
17170  Cx-3 
17190  Xntn-100 
17190  Ymin-10 
17390  END  IF 

17219  ENO  IF 

17220  ENO  IF 
17230  9EEP 

17210  PRINT  "INiSPljIP  2300 .2200, 9300, 5900: " 

1 7250  PRINT  "SC  0. 100.0. 100iTL  2.0:" 

17250  STx-129'Cx 
17270  STy-100/Cy 
17290  BEEP 

17290  INPUT  ">JANT  TO  9Y-PASS  CASE’  !  1  -Y  ,0-N  )"  .  IbyP 
17300  IF  ISyp-1  THEM  19540 
17310  PRINT  "P'J  9.9  PO" 

17322  Nn-9 

17330  FOR  1-1  TO  Cx  + 1 
17340  Xat-Xnln* I 0" t  I-l  ? 

173S0  IF  I-Cx+1  THEM  Nr-1 

17350  FOR  J-l  TO  Pin 

17370  IF  I-l  THEN  PRINT  "TL  2  0* 

17290  IF  J-2  THEN  PRINT  "TL  I  0" 

17390  Xa-Xai»J 

17400  X-L5T (Xa/Xninl-SFx 

17410  PRINT  "PA* ;X , * ,0:  XT;" 

17420  NEXT  I 

17439  NEXT  I 

!~449  PRINT  "PA  l00,0;P'Ji" 

17450  PRINT  "P'J  PA  0.3  PO' 

17450  Nn-9 

17470  FOR  I-l  TO  C y I 
I74R0  Yat-Ynm*  !0‘< I-l  ! 

17490  IF  I-Cy-1  THEN  Nn-1 
17500  C0P  J-l  TO  Nn 
1 7510  IF  J-l  THEN  PRINT  "TL  2  9" 

17529  IF  J-2  THEM  POINT  "TL  1  3" 

i  '539  -,j-''3t‘J 

'-S-10  T-L5T'Ya/w«tn*-Sfy 

i -egg  do  rrjr  -og  j  •  .  •/  ■yr- 
t-ccg  Djcyr  j 

’-5-9  NEXT  I 

1 -egg  oojnT  'oa  3  ’00  *(_  g  2  ’ 
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;799C!  Mr-9 

17500  C0C  !»!  TO  C.vi1 
17EI0  Xat-Xmm*  10“ I- 1  1 
17620  IF  ! -C.r  + !  THEM  Nn«1 
I793e  FOP  J-l  TO  Nr. 

17646  IF  J-1  THEM  PRINT  "TL  0  2" 

1 7650  IF  j.l  THEN  PRINT  "TL  0  1" 

17550  Xa-Xat‘J 
1  7670  X-LGT (  Xa/Xmm  >-Sf 
17680  PRINT  *Pft“ « X  , '  ,100s  XT" 

17690  NEXT  J 
17700  NEXT  I 

17710  PRINT  "PR  100.100  PU  PR  100,0  PD* 

17720  Nn-9 

17730  FOR  1-1  TO  Cy+1 

17740  Yat-Ynin*  10'!  I-!  1 

17750  IF  I-Cy+I  THEN  Nn- I 

17760  FOR  J-1  TO  Nn 

17770  IF  J-1  THEN  PRINT  'TL  0  2" 

17790  IF  J>1  THEN  PRINT  ‘TL  0  I* 

17790  Ya-YaWJ 

17900  Y-LGT( Ya/Ynin  )*S?y 

17810  PRINT  -PO  PR  100.-.Y.-YT* 

17820  NEXT  J 
17930  NEXT  I 

17940  PRINT  -PR  100.100  P'J" 

17950  PRINT  *PR  0,-2  SR  1.5.2* 

17950  Il-LGT! Xnin > 

17970  FOR  1-1  TO  C*+1 
17990  Xa-Xnin* 10*11-1  ) 

17990  X-LGT (Xa/Xnln!-S?x 
I^OO  PRINT  -PR-  SX  .-  .0!  - 

17910  IF  1 1  '■  — 0  THEN  PRINT  "CP  -2  .-2  : L8  1 0:PP  -2  .2  ; L8 ”  !  1 1  :  *  " 
17920  IF  1 1  ,0  THEN  PRINT  "CP  -2  .-2 ; LS 10 ;°R  0  ,2  :LB" :  I  i  s "  ’ 

17930  Ii-Ii+1 

1  "’SaO  NEXT  I 

17950  PRINT  -PU  PR  0 ,0" 

17950  li-LGT'Ynin) 

17970  Y 1 0-10 

17990  FOP  I- I  TO  Cy+1 

17990  Ya-Ymin* 10" < I - 1  > 

18000  Y-LGT ( Ya/Ynin  >-Sfy 
19010  PRINT  -PR  0  : Y 

19020  PRINT  "CP  -4  ,-.25:LB'0;PR  -2  ,2»LB" « 1 1 « "  * 

19030  1 1  —  1 4  *  1 
19040  NEXT  I 

isesc  BEEP 

I9C60  INPUT  -URNT  USE  DEFAULT  LABELS  (  1 -Y ,0-N ?’■ . Idl 
1 9070  IF  Id!: - j  THEM 
1 9090  9EEF 

I9e90  INPUT  -ENTER  X -LABEL "  .X  lafca 15 
19100  BEEP 

19110  Imoijt  "ENTER  y-lrsEL"  .YlabalS 

'9120  EMC  IF 

13130  IF  Osa.2  THEN 

1  9  1  4 G  °PIMT  "SP  '  2:  P'J  CA  40  -  1  4  ; 

'  9 '  S3  DOIMT  ''L9,r:PP  -1.5  3  CC  00  '.2  0  dm. oo  c  -4;|_9;jc:00  .5 

IC1C{|  CD  J  M  T  'l_D-t.OO  5  .I.IC..I.DC  Z  I  .  - 

' 9 1 "C  Ic  lur-0  THEM 
1  O  I  0(*  op  T  piT  '-ID’  'l'  - 
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1 S • 90  ELSE 

tS^OC  DR!NT  "LS  >  '  F  •  “ 

13210  END  IF 
!£222  £  MO  Ic 
1 S230  IF  Opo-2  THEN 
•  92-10  IF  Iun-0  THEN 

19250  PRINT  "SR  l.S,2:FU  PH  40,-l4:l_Bq  (U/nsSR  I.I.SsPR  0.5,I:LS2;SR  !.E,2:PC 
0 .5  1  ;LS  > ‘ 

13260  ELSE 

19270  PRINT  "SR  t.5.2:PU  PH  3J.-14;LBq  (Stu.'hrsPR  .5..S;LB.:PR  .5, -.5;' 

!  9290  PRINT  -LBf*.  :PP  .S,l:SR  !  , !  .  SiL92 ;  SR  l.S,2:PR  .S.-!:LS>:’ 

19290  END  IF 
1 9300  ENO  IF 
19310  IF  Opo-0  THEN 
19320  IF  Iun-0  THEN 

1  9330  PRINT  'SR  1  . 5  .2  ;P'J  PH  -12. 40:01  0 . 1 :LBq  <  U/n:PR  - 1  ,0 .5:  SP  1  , 1  .5:  LB2  :  SR  1 
.5  .2  :PR  I  ,  ,5;LS  )’ 

19340  ELSE 

183S0  PRINT  "SR  1  .5  ,2:PU  PH  -12  .22:01  0.l:LSq  (Btu/hriPR  - .  5  , .  5  ;LB .  :PR  .5, .5:* 
19360  PRINT  *LB?t:SR  l.l.5;PR  -1..5iLB2iPR  !..SsSR  l.S,2:LB!’ 

19370  ENO  IF 
I83e0  ENO  IF 
19390  IF  Opc.'O  THEN 
19400  IF  Iun-0  THEN 

194101  PRINT  "SR  I  .5 ,2;PU  PH  -12.39:01  0.l:L8h  (U/niPR  -1,.S:SR  l,1.5:L92iSR  1 

.S.2«PR  .s,.sr 

18420  PRINT  *SR  1 .2 ,2.4  jP'J  PH  -12.37:01  0,1«LBh:PR  1  .0.5:LBo:PR  -1  ,0.S:LB  (U/n 

■ 

18430  PRINT  "PR  -t,.S:SR  1,1.S*LB2:SR  !.S,2:PR  .S..5:LB.:PR  .S.0:LBK>* 

19440  ELSE 

18450  PRINT  *SR  1  .5  .2  :PU  PH  -12.29:01  0,1:LBh  (8tu-'hr:PR  -.5 ,  .5:LB.  :PR  .5. .5:* 

19460  PRINT  "LBM  :PR  -1..S.-SP  l.!.5:L92:SR  1.S,2:PP  .S..5:LB.:PR  .S,.5:LBF1* 

19470  END  IF 

19490  ENO  IF 

19490  IF  Idl-0  THEN 

19500  PRINT  ■  SR  1 .5  ,2:°L‘  PH  50.-16  CP*  :-L£N!  X  labels  >/2: *0:Lfi*  :XlsbelS: 

19510  PRINT  'PH  -14,50  CP  0  :-LEN' Ylabel*  >.'2*S'S:  *01  0 . 1  :L9" :  Ylabe!  S :  * " 

19520  PRINT  "CP  0,0  01* 

19530  END  IF 
19540  Ipn-0 
19550  XU-l  .E+6 
18560  Xu  1  —  1  .  E+6 
19570  Icn-0 
19590  Ifn-0 
19590  Ijcm-I 
19500  9EE° 

19510  INPUT  "UHNT  TO  PLOT  D*TH  FPON  H  FJi_£  (  1  -Y  ,0-N  17 •  ,Q| 

’  9920  IF  01-1  THEN 
1 9530  BEEP 

! 9S40  INPUT  "ENTEF  the  NHNE  Cc  THE  DHTH  cIlc-  _n_? . tej 
’9550  ftCCTgw  fFtis  TC  0  f;i«5 
>9660  BEEP 
igc-£  555F 

’9590  INPUT  “5MT5P  T^c  BEGINNING  PUN  NUNSEP "  ,*d 

i ocoffl  BEEF 

INBijT  "ENTE0  TL«E  NUMBER  Oe  >'-v  pAIPE  STOPED"  ,Noai-3 

iS-lgl  OCCD 

'E“Z0'  I  "CONNECT  Or  T  r  W !  LINE  1  '  »  *  tG«N  '  **  “  ,  I  z  1 

i  B"*2p  9EED 

>E“40  pcjntcc  13  i 
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!  3799 

PRINT  USING  "  1:<  ,"Ss 

Lset  a  symbol 

i  q?c0 

OOfMT  USING  14  5X  •  -  • 

Star  2  Pius  s: jr'" 

!9~?3 

c 0  t m 7  MCT*JC  -cv  •  - 3 

Circis  4  Sauars . 

t  3730 

30  TMT  IjCJfIC  *CV  "  "  C 

Sentus  “ 

i  37Q0 

PP INT  USING  "S:<  .  '  5 

9  ight -s  ids— jo  ir- iangl  s“  '  “ 

!  9220 

PRINT  USING  " - 7 

Uo-s  ide-dcun  tnargis  '  '" 

15013 

INPUT  Syn 

!  2223 

PRINTER  !3  70S 

19930 

PS  INT  -PU  01“ 

!  3940 

IP  Syn-1  THEN  PS INT 

“SM»“ 

1  99S0 

IP  Syn-2  THEN  PSIMT 

“SM+“ 

!  99S0 

IP  Syn-3  THEM  PSIMT 

“SMo ' 

19970 

IF  Md. 1  THEN 

1  0930 

P09  I-l  TO  ' Md- 1  ■ 

19999 

ENTER  JF :  Is i  /a  ,Xa 

1 9900 

NEXT  I 

19919 

ENO  IF 

19920 

POS  t-l  TO  Ncairs 

19939 

ENTES  0Fi IsiYa ,Xa 

19940 

IP  I-l  THEN  01 -Ya 

1 9950 

IF  I -Noairs  THEM  02- 

Ya 

I99S0 

IF  Oco-l  THEN  Ya-Ya/Xa 

19979 

IF  Opo-2  THEN 

19990 

O-Ya 

19990 

Ya-Ya/Xa 

19000 

Xa-Q 

19010 

ENO  IF 

• 

19029 

IF  Xa-IXU  THEM  XII-X 

a 

19030 

IF  Xa.'-Xul  THEN  Xul-Xa 

19040 

IF  Iun-1  THEM 

19990 

IF  0po'.2  THEN  Xa-Xa* I  .9 

190S0 

IF  Ood-0  THEM  Ya-Ya* 

.1791 

19079 

IF  Qoo-0  THEN  Ya-Ya* 

.317 

19990 

IF  Ooa-2  THEN  Xa-Xa* 

.317 

13099 

ENO  IF 

19190 

X-LSTI  Xa/X.*un  !*S  ?:< 

191  19 

Y-LGT  (Ya/Ynin)*Sfy 

19120 

Kj-0 

13130 

CALL  SymblX  ,Y  ,Syn  ,Icl  ,Kj  > 

19140 

SOTO  19270 

131 90 

IF  Sy«>3  THEN  PS INT 

“SM’ 

19150 

IF  Sy««4  THEN  PS INT 

“SR  1 .4  ,2.4“ 

19170 

IF  Icl-0  THEN 

19190 

PSIMT  “PA"  ,X  ,Y 

19190 

ELSE 

1  g*<jg 

PRINT  "PR-*  X  Y  -og- 

1  1 3 

ENO  IF 

1  3229 

IF  Sy.*>  3  THEM  PSIMT 

'SR  1.2,1.  S’ 

'  3220 

IF  3y*i-4  THEN  PSIMT 

“UC2  .4  ,39  ,0  ,-9  ,-4  ,9 ,3 ,3  ,  t  , 

1  3240 

IF  Syr-S  THEM  PSIMT 

'UC3  .9  .39,-3  ,-S  ,-3  ,5  ,3  ,S  ,3 

!  9250 

IF  Syn-5  THEN  99 INT 

“UC9  ,9.3 ,99, 2, -9  ,-S  ,9 .2,9: 

i  32S0 

IF  Syn-R  THEM  PSIMT 

“'JC9  .-5.3 .99  ,-3 .9  .9  ,3.-3,-! 

1  32~9 

»|cyf  r 

!  3239 

PP IMT  "PU" 

1  3233 

aero 

19309 

INPUT  “'JANT  rij  U.“9EL 

,3-m  >•  ,  I  lab 

13319 

re  r  1  ;  ruci,j 

'9329 

C»!MT  “SP9: SP3  ' 

■3239 

9EE° 

1 12*10 

tc  K'.  sb-9  ru9'i 
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!-a:s*3  nab-s 

» 92^0  y L  ab*95 

19579  INPUT  "ENTER  INITIAL  '.Y  LOCATIONS"  ,.<lab  .V  lab 
1 9590  x » * »y t »k«c 
1 9590  f £ t  *  i  1 afc*9 
»  9-100  FAINT  "$R  J  }  .5  ‘ 

19419  “PINT  *SM;PA* ,  Xtt  ,Yit  , 'L9  5  Meat  Fils' 

19499  Ytt-Ytt-3 

19439  PRINT  *PA'  ,Xi  t  ,  Y  t  i  .  "L9  Ot!  P!u.t  Nans' 

19440  IP  Sy„-|  them  “PINT  “SM* ’ 

19459  IF  Syn»*  THEN  “PINT  *SMi' 

1 9450  IF  Syn-3  THEM  PPINT  '“No" 

194*9  Klab-I 

19490  “MO  IF 

19499  Kj-1 

I9S30  CALL  Synb< X  lab , Y lab  ,3yn  ,  Is  1  ,K  j  > 

19510  “PINT  -SP  1,1 . 5 : SM“ 

1 9539  IF  Syn-4  THEM  “PINT  'PR  2.0* 

I  9530  3EEP 

19540  INPUT  'ENTER  50P*  ,8oq 

19550  IF  9op<:  1 0  THEN  PRINT  'PR  2 ,0iL3' :8op ( ' ' 

I9SS0  IF  Sop 9  THEN  PRINT  'PR  .5  ,0sL3*  iSopi  *' 

19570  Ihf-0 

19530  IF  01102  THEN  Ihf-I 

19590  IF  !hf-0  THEN  PRINT  'PR  4.0:L8Inc' 

19500  IF  Ihf-I  THEN  PRINT  'PR  4.9sL90ee' 

19510  PRINT  'PR  2.0iL9's0_fiia4i" 

19629  PRINT  *SP9iSP! iSR  1.5.2' 

1 9830  Ylab-Ylab-S 
19549  cnO  IF 
19650  9EEP 

19660  ASSIGN  9F i Is  TO  • 

196*0  Xll-XU/t .2 
19690  Xul-Xul-t  .2 
19690'  50TO  9940 
19790  ENO  IF 
19710  PRINT  'PU  SM' 

19729  9E5P 

l'’"Z0  INPUT  *UANT  TO  PLOT  A  POLYNOMIAL  (  I -Y  ,9-N '  .Go  on 
19740  IF  3o_on-l  THEN 
I  9759  955P 
1 9750  “PINTER  IS  I 

197*9  PRINT  USING  '4X, "Select  line  type:*" 

19790  PRINT  USING  *SX,"9  Solid  line"* 

19799  PPINT  USING  *SX,"l  Dashed"* 

19999  “PINT  USING  *SX,"2..,S  Longer  line  -  dash" 

’9919  INPUT  Ipn 
’9929  ““INTER  IS  70S 
I  9929  9E5P 

19940  INPUT  'SELECT  (  9-LIN  .  1 -LOG' X  ,Y  1  >' .  I  log 
19950  Ipr-t-1 
1 99S9  CALL  “oly 

I  qg-j  TC  r«n.£  TUCKJ 

\ 9993  SEEP 

11990  [  MP'JT  ’ENTER  N'J!*9E°  IF  CIL93  TQ  JOIN?"  ,M  j  a  m 
‘9909  fc 
»  99 1 9  r  .  j , « 

’9950  [F  [ e  ~  *J  ■  3  .  ~  'uc'i  ’  .  i 
’9955  IF  ;<«»g  70  r  j : '  rHE*i 
*  -aa  ig  e.70  r  .  *0  ”7  7 
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!  3350  9a i  t ;  ’"9s *  [  j  * *9'-  I  ;  J 
I oocq  MC v  r  r  * 
j  ag-g  r  f  r  t  r<  *  i 
I  gagg  c\<n  ft 
,  qaac  rp  m j  ^  t  •»«  [  «n  THEM 
S000O  cno  t  j  *0  rn  3 

300f0  9<  I  j  >*9s(  ! ;  Njo  in 

29929  9s< 1 j  >-e 

93023  NEXT  !j 
"'0040  f  *  «  *0 

:ggs3  else 

220EG  GOTO  ’ 9SG0 
22070  SMC  IE 
22090  SEEP 

29090  INPUT  "ENTS?  Y  LOWER  ANO  UPPER  LIMITS" , Yl 1 ,Yul 

20100  FOR  Xx-3  TO  Cx  STEP  Cx/200 

201  10  Xa-Xmin»!3'Xx 

23120  !F  Xa'Xll  OR  Xa'Xul  THEN  20393 

29133  Icn-tcn-H 


20140  Pu-0 

29150  IF  Ipn-I  THEM  Idf-Ien  MOO  2 

20IS0  IF  Ipn-2  THEN  Idf-Isn  MOO  4 

20170  IF  Ipn-3  THEN  Idf-Ien  MOO  9 

20190  IF  Icn-4  THEN  Idf-Ien  MOO  IS 

20190  IF  Ipn-5  THEN  Idf-Ien  MOO  29 

20200  IF  Idf-I  THEN  Pu-l 

20210  IF  Opo-0  THEN  ya-FNPaly( Xa ) 

20220  IF  Ope-2  ANO  Ilog-0  THEN  Ya-Xa/FNPdly<Xa * 

29230  IF  Opo-2  AND  Hog"'  THEN  Ya«FNPolyf Xa > 

20240  IF  Ooo-i  THEN  Ya-FNPsly(Xa! 

23250  IF  Ya-Ymln  THEM  20390 
20250  IF  Ya-.Yll  OR  Ya'vul  THEM  23390 
23270  IF  Iun-1  THEN 

29290  IF  Oooi2  THEN  Xa-Xa-1  .9 

29290  IF  Opo.9  THEM  Ya-Ya-.l7SI 

20300  IF  Opo-0  THEN  Ya-Ya • . 3 l 7 

20310  IF  Ooo-2  THEN  Xa-Xa-.3I7 

20320  END  IF 

20330  Y-LST< Ya/Ynin >-Sfy 
20340  X-LST(Xa/X«in.'»SY* 

20350  IF  Y<0  THEN  Y-0 

20350  IF  Y> 1 00  THEN  SOTO  20390 

20370  IF  Pu-0  THEM  PRINT  "PA"  ,X  ,  Y  ,  'PO* 

20390  IF  Pu-l  THEN  PRINT  "PA"  .X  ,Y .  RU" 

20390  NEXT  Xx 
23400  PRINT  *°U" 

23419  GOTO  1 9500 
29429  ENO  IF 

23420  9EER 

29440  INPUT  "WANT  TO  PLOT  REILLY'S  DATA?  (  l -Y  ,0-N  : "  .  I.- ly 

294S9  IF  Opo-0  OR  Opo-l  THEN 

29450  Xll-3 

294"0  Xu  1-29 

29199  EMO  IF 

SO 4 SO  IF  Osc*S  Tu£ftl 

ZOSOO  <  i  I  *  1 0900 

SOSI0  00000 

sosso  sno  :f 

S^SSO  !c  [  -  i .« »  TuG*l 
SOS-10  'l 1  -SO 
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20550  '/ ul*~0 
Z0SS2  o£EP 

03 e-g  INPUT  'ENTER  I_nijcp  ^mq  UP°5R  y-lIMITS  'OR  PLO  rT  IMS  '  ,  ' 1  1  .Yu  1 
93S90  POP  '>*3  TO  C--  3T£P  C..  009 
20530  <3*<nin»!9  <■ 

00599  IF  Xa  XII  OR  :<a.  Xul  rug»/  00739 
09SI3  X 1 »LO£( Xa > 

20S09  IF  0E3-9  THEM  /l  —  2  .S402937E-'  m  I  •  «  1 . 37091S1  -X I *2.51 34797E- 1  > 
O0SJ0  je  Osc-I  Them  ':'!—  2.S402337E-I  *.'!•' 2 . 9709 ! 5 ! -X 1 *3 .S ! 34-97E-!  > 
09640  IF  Obs-2  THEN  Yl  — 3. 707399! E- M-X l *' 3. 7253!  39E-’ -U*S  .992S940S-3 
20650  Ya-EXP' Yl ? 

09SS9  y-LST!  Ya.'Y-tm  .'•Sfy 
295-9  X-LST'  Xa.'Xnin  )*Sf  a 
29699  tpu-0 

20630  IF  YY1I  THEN  Icu-I 

20790  IF  Y>Yul  THEN  SOTO  09730 

30710  IF  Isu-0  THEN  PRINT  'P4“  ,!(,/,  "PC" 

20709  IF  !ou«1  THEN  PRINT  'P4'  ,.X  , Y  . 'PU* 

00730  NEXT  X* 

20740  PRINT  'PVT 
20750  ENO  IF 
20760  9SSP 

29770  INPUT  ‘UANT  TO  PLOT  ROHSENOU  CORRELATION?  <  I -Y  ,0-N )  •  ,  Iroha 

20790  IF  Iraha-I  THEN 

29739  YI1-IS 

29900  Yu 1-90 

20910  9EEP 

29929  INPUT  'ENTER  Taat  (Ceq  O'. Taat 
20930  Cs  tw • 0040 
39940  9EEP 

20950  INPUT  'ENTER  0 at  < OEF-9 . 004  ' '  , Oa f 
29950  T f *T sat  *2 

20970  FOR  Xx-9  TO  Cx  STEP  C*/290 
20990  Xa-Xnsn* ! 0'Xx 

20990  IF  Xa'Xll  OR  Xa.'Xul  THEN  2!  170 
20900  Xl-LCS(Xa) 

20910  IF  Opa<2  THEN  Tf-Tsa» *Xa/2 
20320  Rha-FNRho<  T  f ) 

20339  K-FNK'.Tf! 

20940  riu-FNHu(  T  ?  > 

239S0  Co-FNCp(Tf) 

20960  Hfg-FNH'g< Tsat  ! 

20970  Nt-Hu/Rho 
20990  Pr-Cp-Mu.K 

29999  Onega-Csf  •Hfg/Cr  •<  .014.'!  3.91  *Phc  >  >*  .S/< Nu’Hfg  > >" (  I  . /3  >»Pr  1.7 

2!  000  IF  0co-9  THEN  Ya»<  Xj/Ori«qa>'3 

21010  IF  0bo-I  THEN  Ya--"'a/OregaV3/Ya 

21029  IF  0oo*2  THEN  va*<a  ’  f  2  .  ’3  J.'Oreqa 

21029  IF  0bo-2  THEN 

2 1 040  Tfc-Tsat4’Xa/Ya*.S 

21950  IF  40S! T f-T  Ts  )  .  31  THEN 

2'0S0  T*«< T?*T?s  !• .5 

2' 979  C-OTO  29929 

2 ' 299  ENO  IF  ’ 

2 '099  5N0  IF 

2  '  '00  '-L3T'  va. .5»-. 

2  1  1  1  2  '  ■»,_r  }  T '  /  j .  •  9  f 

2  ’  -  22  '  -  -  ■ *2 

:*«53  : r  /  /»:  (-u-* * 

fc  /  v.j  I  ruCP|  2  '  '  “0 


118 


2 !  icq  rc  <r.u»n  rucj|  coriir  *o,a-*  y  /  -cn" 

Qi  i  CQ  rc  r«u*i  fucu  eprwr  -pa*  y  j  **oij*- 

01173  NEXT  X., 

-  1  1  00  OO-MT  -OIJ" 

2 i i og  cmq  rc 

C 130  9EE° 

QiQig  INPUT  "UANT  TO  SUIT  *  : «y  0-N  1  *  ,[qt 

0 ' 222  IP  !pt»!  THEM  0 1  0  -10 

01033  GOTO  195=3 

01010  PRINT  *PU  PA  3,3  3P3" 

01050  5U9ENG 

01050  3U9  6ynb<X  .Y.Syn.Idi  ,Kj  ! 

01000  IF  Syn.3  THEN  PPIflT  "SM" 

01093  IP  Syr-Kl  THEM  PRINT  'SR  1.1. 0.1" 

01090  Yad-0 

01300  IP  K  j -  I  THEN  Tad-. 9 
01313  IP  1=1-0  THEM 
01320  PRINT  "PA" ,X .Y+Yad , " * 

21333  ELSE 

01340  PRINT  'PA’  ,X .Y+Yad  ,*P0‘ 

21250  ENO  IF 

21360  IF  Syml  3  THEM  PRIHT  'SR  1.2. 1.5" 

01373  IF  Syn-4  THEN  PRINT  ‘UC2 .4 .99 ,0 .-9 ,-4 ,0 ,0 .9  .4  ,0; " 

21390  IF  Sym-S  THEN  PRIMT  "UC3  .0  ,99  ,-3  ,-S  ,-3  ,S  ,3  .5  .3  .-S  t  * 

21330  IF  Syn-S  THEN  PRIMT  -'JC0  .5. 3  .99 .3  .-9  ,'-S  ,3  .3 ,9 1 ' 

2U00  IF  Syn-7  THEN  PRINT  ’UC0  .-5.3  ,99  .-3  .9  .5  .3  . -3  ,-9;  * 

01410  IF  Kj-I  THEN  PRINT  -SMsPR  3, -.3* 

21423  SUBE.NO 
21430  SUB  Para 
21440  BEEP 

214S0  INPUT  -ENTER  FILE  NAME  to  BE  0ELETE0*  ,Ftl9» 

01160  PURSE  Pile* 

2U70  GOTO  01140 
21490  SUBSNQ 
21430  SUB  Tdcn 
21500  COM  /Ce.'  C(  71,  leal 
01510  OIM  Eieft  I  ! 

01S03  OATA  0.10096391,25707.94369,-767345.9235,79005595.91 
21520  OATA  -9047496599, S.  97599E*!  1  .-0.66  I  90E*  13,3. 94079Er- 1  4 
21540  READ  C!  • 

21550  BEEP 

21560  INPUT  -SIUE  A  NAME  FOR  FILE  TO  BE  CREATED" ,Fi leS 
01570  BEEP 

21580  INPUT  "SELECT  TUBE  ( 0-UH .  I -HF  ,2-MT )*  , 1 1 1 
01590  9EEP 

01600  INPUT  ’SELECT  THERMOCOUPLE  TYPE  ( 9-NEW  ,  1 -OLD  1  ”,  leal 

—  t  c 1 0  rp  it.  ;  THEM  O : * . 3 1 07 
01603  CREATE  90 AT  Fil-S.l 

0  T  S20  ASSIGN  ?F 1 1 -  T0  =:IeS 
0 1 510  OUTPUT  SFilasItt 
01553  1-0 
O1S60  9EEP 

01970' INPUT  "ENTER  MONTH,  GATE  4NO  TIME  fMM:00:HH:MM:SS)* .Date* 
0 ' ggg i OUTPUT  "09: " T0" : Oj * sS 
3 ’590 ‘OUTPUT  "09;  TO* 

:’~’0  oprrjTEP  lo  » 

2 » ootMf 

"’"30  ~°!hlT  -jj  *  •  jr  j  :OjtS$ 

3  ’ ‘*’•10  oor.,1 
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;»~S0  oorfir  MC  r  N6  "  l  Ox  .  '  •  P.-is  r:n  r#v  7u  2  Tirtc  ' 

“»  |  “*C0  tc  u;  «<A  TUCAJ 
7  t  -*-»g  oqujTCQ  J3  7*1 

“» i  70£  co  r  y 

2,'"32  cqrRjT  ••  Mcn  t  h  ,  da  1 2  »na  time:  “tOateS 

^  1  °0G  !c  1 1 1  **2  THEN  °9INT  USING  “  ?  O.Y  ,  “  '*  T.-ibs  r  'Jiaiand  3  n  c  c  ‘  ^ . 

2  r  3  !  0  Ir  It**!  THEM  99  IN?  USING  *  1 0?  ,  *  K  Tuba  Tyos:  Hijh  FIua-"- 

‘•ta-g  re  I***'  THEN  P9  J.NT  USING  "  !  (*X  “■’Tuds  Tv***:  Turbs-9- ”  "* 

21933  PRINT 

3*313  PRINT  USING  mt9Xtmm  Fns  Tift  T-v  Uu  *2  Tdr-p""" 

2 ! 3S3  PRINTER  IS  1 
2 1 953  K* ! 

21970  £N0  IP 
2 1 990  9EEP 

Z  !  993  INPUT  “ENTER  FLOWMETER  REAQING' .Fm 
’>900  OUTPUT  709: “AR  AF0  AL4  UR  I" 

Z  T  9 1 0  FOR  L-0  TO  4 
Z19Z3  OUTPUT  709 i  “AS  SA“ 

Z 1 933  IF  L/0  ANO  L<4  THEN  2Z0I0 
2! 940  S-0 

2!9S0  FOR  1-0  TO  9 
219S0  ENTER  709 :S 
21970  S-S+E 
21990  NEXT  I 

21990  IF  L-0  THEN  Sn»'3>-A9S(S.'1G>  . 

22000  IF  L-4  THF'  -  !  >-A9$!S/19> 

22010  NEXT  L 

22020  OUTPUT  7"  , "AR  AF00  AL00  UR I* 

22030  OUTPUT  709: 'AS  SA“ 

22040  Eit  *3 
220S0  FOR  1-9  TO  9 
220S0  ENTER  709: St 
22^70  Etp-Sip+St 
22090  NEXT  I 
22090  Etp-Eta.'  I  0 
22100  Tin-FNTvsv(Enf( I  )  V 
22110  Tsv-FNTv9v<E.-»f<0.' > 

22120  Srsd-37.99S3*. 104399-Tin 

22130  Mdot-3 . 9657E-3>Fns •( 3.5 1 9SEE-3-Fcu*( 9 . 92905E-S-Fns,< I . ’3639E-?-Fns *4 . 3 1 997 

e.  j  g  > ;  > 

22140  Uw-ridot/n000-PI‘Oi '2J-4 
22150  Tdrop-Etp- 1 .£+S/< 13-Grsd > 

22IS0  PRINT  USING  '  1 0X  ,3<  00 .00  ,4X  1 , 1 X  ,2 .00  ,4X  ,NZ  .  40“  ;Fns  .Tin  , Tsv  ,Uu*2  .Tdrop 
22170  SEEP 

22130  INPUT  -UANT  TO  ACCEPt  THIS  DATA  SET’  ( 1 «Y ,0-N  )*  ,0k 
22190  J-I-! 

22220  IF  OH >0  THEN 
22210  J - J - ! 

22220  SOTO  21990 
22233  ELSE 

22240  OUTPUT  9F ; issFns  ,Enf f  *  >  .Etp 
222S0  PRINTER  IS  701 

222S0  PRINT  USING  '  1 0X  .3!  00 .CD  ,4X  !  ,  I  X  .2 .00 , 4X  .  10“  :F«s  , T tn  .  T-v  .Uu  2  .Tdrpp 
222’9  °° INTER  IS  1 
22290  9EEP 

22290  INPUT  ''JILL  THERE  9E  3MCTHER  DATA  SST’  '  I «/  ,0-N  ,Go_:n 
IF  So  ^n-’  THEN  2 ’ 9SG  * 

2  c MO  re 

::::o  assign  ?c:i*  ro  • 

ZZSZO  * o  | »j r co  *  c  1 
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:;;io  print 

'’“'253  PRINT  USING  "  '  2K  ,  '  'MOTE :  "“,22,""  d3ta  sets  3rs  j!;rid  m  file  . '  S  A "  ;  J  .  F 
;  I  el 

-'-VCn  OCfMTCO  K  t 

--t— n  "U5ENC 
""333  SUS  Uc-rt 

"""^O  ogrujtcp  rc  t 

22100  SEEP 

22113  INPUT  "Enter  Uo  Fils  Nans'  .FilsS 
i"*9  SEEP 

22123  INPUT  "Nuflber  of  Oita  Puns'  ,Nrun 

22140  INPUT  'Os  You  'Jan*,  a  Plot  F  i  le7<  ! -Y  ,3«N  J '  ,  Is  let 

221S3  SEEP 

221S0  IF  Iploi*!  THEN 

22123  INPUT  'Give  Plot  Fils  Nans' ,P_f i IsS 
22190  CREATE  BOAT  R_fileS,t 
2-199  ASSIGN  9Plot  TO  P_file« 

22S00  END  IF 
22SI3  PRINTER  IS  ?0! 

22S20  PRINT 
22S20  PRINT 

22S10  PRINT  USING  *I9X,”  'Jeter  Usl  Uo'" 

22S50  ASSIGN  9Fi la  TO  Files 

22SS0  IF  tplei-t  THEN  ASSIGN  «Filel  TO  P_flls3 
22579  FOR  I-!  TO  Nrun 
22533  ENTER  SFilssUu.Ue 

22553  IF  Iplat-l  THEN  OUTPUT  *Fils!  iL'w ,'Jo 
22500  PRINT  USING  "  !SX  ,9.00  ,SX  .HZ .30E"  s L'w  ,Uo 
22510  NEXT  I 
22520  ASSIGN  JFile  TO  • 

22C30  ASSIGN  SFils!  TO  • 

22S13  PRINT  USING  'I3X,'"NQT5:  '",22,"  data  sets  are  stored  in  fils  ",lSA';Nru 
n.Fil-S 

22SS3  IF  Iplot-1  THEN 

22SS0  PRINT  USING  '!9X,"NCT£:  **,22,"  X-Y  Pairs  are  stored  in  file  ".ISA'sNru 
n.P_fils3 

ENO  IF 
PRINTER  IS  I 
SUSENO 
SU9  Select 
COM  /Ido/  Ido 
SEEP 

PRINTER  IS 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
eRINf  USING 
°R!NT  USING 
INPUT  Ido 

IF  Ido*9  rHEN  CAL'-  Msm 

rc  r---i  rucrj  Z  “ 1  o  t 

rc  r fL»£ri  ■  ai_!  Of  .. 
rc  r -- -  r  ruC'i  UA'-L  CosY 


•ix  ,'*  "Select  option:"* 

"SX  3  Taking  data  or  re-process  mg  previous  data"" 
"SX,"  1  “lotting  data  on  Log-Log 
"SX,"  2  Plotting  data  on  Linear'" 

'SX,"  3  Hake  cross-plot  coef*t  *ile"' 

'SX,"  4  “a-cmculate  jatsr 
'SX  ."5  “urge 

"SX,"  S  T-Oroc  correction"' 

SX  .  "  7  Print  Uo  “ils"' 

*SX,"  9  Nodify  X-Y  file"' 

'SX  " *  9  Mc.  e" ' ' 

'SX  ,  ' "  19  Conb/c  i.-.uc  ' ' " 


22S73 

22590 

22539 

22700 

22719 

22729 

22730 
22740 
227S0 
22'TE0 
22770 
22790 
22-93 
22’999 
22919 
22923 
22333 
22213 
222S3 
’22S3 

*2  3-3 
"2993 
22320 

-*  -  onfl 
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■  IF  THEM  OALL 

22920  IF  Ids*5  THEN  CALL  Pu" 

32933  IF  Idp*S  THEM  CALL  Tdcr 

23940  IF  Ida*?  THEN  CALL  Udarl 

3395.3  IF  Ide*9  THEM  CALL  X,wod 

22950  IF  Id**?  THEM  CALL  Mcve 

33S73  IF  Ida* >3  rH£M  CALL  Conb 
22332  3USENQ 
22993  3'je  Xyned 
22000  PRINTER  IS  I 
23310  SEEP 

23323  INPUT  'ENTER  FILE  NAME', File* 

22033  ASSIGN  2F i la  1  TO  Fila* 

23340  9EEP 

232S3  INPUT  'ENTER  NUMBER  OF  X-Y  PAIRS"  .No 

230C(j  qccd 

23373  INPUT  -ENTER  NEW  FILE  NAME'  ,F i la2* 

22083  CREATE  90AT  Fi 1-23,5 
23030  ASSIGN  9Fi la2  TO  FUa2* 

23100  9EEP 

231  10  INPUT  -ENTER  NUMBER  OF  X-Y  PAIRS  TO  BE  OELETED*  ,Ndel 
23120  IF  Ndel-0  THEM  221S0 
23130  FOR  I-l  TO  Ndel 
23140  BEEP 

23 1  S3  INPUT  "ENTER  OATA  SET  NUMBER  TO  BE  OELETED"  ,Nd(  I 

23 1 50  NEXT  I 

23173  FOR  J-l  TO  No 

23130  ENTER  9Ftlal iX  ,Y 

23199  FOR  I-l  TO  Ndel 

23230  IF  Nd<I.'-J  THEN  23240 

23219  NEXT  I 

23229  OUTPUT  9FiIe2iX.V 

23230  PRINT  J.X.Y 
23240  NEXT  J 

23253  PRINTER  IS  701 
23250  ASSIGN  JF;lel  TO  ♦ 

23270  ASSIGN  9File2  TO  ♦ 

23290  SUBENO 
23290  SUB  Move 
233001  FILE  NAME:  MOUS 
23310' 

23320  DIM  3op<  SB  .',A(5S!, 9(55!, C(SS), 0(56), E(SS)1F(SS),S<SS),H(SS),.I<SS),K(SG;,L( 
SS  ,H(  56  ! 

23330  DIM  ToldSl  56  !(  14 1  ,N( SS  )  ,Ur(  65  )  ,Ir(  56  ) 

23340  SEEP 

23350  INPUT  'OLD  FILE  TO  MOVE"  ,02_fUaS 
23353  ASSIGN  ?Fiie2  TO  02_cila* 

23370  ENTER  3F: ia2 iNrun  .Date*  ,Ldtc 1 ,Ldtc2 , 1 1 1 

23399  FOR  !»!  TO  Nrun 

23399  ENTER  ?F  1 1 -2 :Sco<  I >  ,  ToldS!  I  ' 

23409  ENTER  0Fil-2sA(  I  !  ,8<  I  ! ,C(  I  '  ,0'  I  1  ,E'.  I  '  ,F!  I  !  .S'  I  1  ,HC  I  1  . J(  I  )  ,K!  I  !  ,L!  I  1  ,M(  I  l  ,N 
C  I  1 

22410  ENTER  3F: 1-2 :Ur' I  1  ,  !r< I  ! 

22420  NEXT  I 

22439  ASSIGN  3F;  1-2  T0  • 

23440  SEEP 

23453  INPUT  ’SHIFT  OISK  AND  HIT  CONTINUE'. Q> 

224S0  9EEP 

23J_9  INPUT  'INPUT  SCAT  SICS". Side 
23499  CREATE  SCAT  02  S:;a 
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23499  ASSIGN  Sfils!  TO  02_?lls* 

O3S00  0'JTP‘JT  0FU-!  ;Nrur  .OalsS.Ldt:!  ,Ldls2  .11* 

*  235 1 3  FOP  I* I  TO  Nrur 

23523  OUTPUT  9F‘.le!  :9sc<  I  ■  .Tcld*'.  I  > 

23539  OUTPUT  9Ft lal  :A<  l )  ,9*  l  >  ,C(  I J  ,0<  l  >  ,E<  I !  ,F<  I  > .S<  1  >  ,H<  I !  ,J(  I )  ,K<  I )  ,L<  I  ?  .MU  > . 
M!  I ! 

•  23S49  OUTPUT  9Filal sUr* I J  ,,p! I l 

23SS0  NEXT  ! 

33SS3  ASSIGN  9Fl!sl  TO  • 

235"9*  REMANS  "TEST"  TO  02  fii*9 

33503  9EEP  2309.. 2 

23S23  9EEP  1339  .2 

22G99  9EEP  4039  ..2 

23SI9  PRINT  *OATA  FILE  MOVED* 

23S23  SUeENO 
23S30  SUB  Conb 
23649*  FILE  NAME:  C0M9 
23SS0* 

23660  OIM  Enf( \2) 

23679  .9EEP 

23660  INPUT  *0L0  FILE  TO  FIXUP* ,02_f lie* 

23699  ASSIGN  9Flle2  TO  02_fi*e* 

23790  OI_flle*-‘TEST* 

23719  CREATE  90AT  01 .File*. 20 
23723  ASSIGN  SFtlel  TO  Ol.Ule* 

23730  ENTER  SFl la2sMrun  .Data*  .Ldlsl .Ldle2 .III 

23749  Nrurwi-29 

2 3750  IF  K-0  THEN  OUTPUT  0Fi lal iNrynn .Oala* .Ldte I ,Ldts2 , I t l 
23760  FOR  I- 1  TO  Nr-jn 

23773  ENTER  «F l le2;9op . Told* .Enf ! * ) ,Vr , Ir 
23730  OUTPUT  4Fllel sSoo  .Told#  .Enfl ♦ J ,Vr  ,Ir 
23799  NEXT  I 

23990  ASSIGN  4Fila2  TO  • 

239131  RENAME  *TEST*  TO  02_flla* 

23629  SEEP  2900,. 2 

23939  9EEP  4000,. 2 

23940  SEEP  4990.. 2 
238S0  SEEP 

23969  INPUT  *UANT  TO  AOO  ANOTHER  FILE  ( I -Y ,3-N J7*  ,0ks 
23979  IF  Oka- I  THEN 
23999  K-l 
23999  9EEP 

23900  INPUT  'GIVE  NEW  FILE  NAME*  ,Nf l le* 

23910  ASSIGN  9File2  TO  Nfils* 

23923  GOTO  23730 
23933  ENO  IF 

23940  ASSIGN  9Flls2  TO  • 

1  23950  SUSEMO 
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